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Editorial 



Notre environnement d'utilisateurs de I'informatique individuelle evolue chaque jour, comme nous ouons 
pu le constater avec I'arrivee des SORD, IBM et autres SIRIUS.,, Cette remarque relive presque dune 
platitude, tant nous savons notre domaine d'inter&t evolutif. Des changements structured sont cependant en 
tmin de s'effectuer, qui vont beaucoup plus loin que la simple apparition de peripheriques ou de logiciels 
nouueaux. En un mot, les constructeurs «classiques» penetrent en force, et avec des moyens promotionnels 
exMmement puissanta le domaine de rinformatique individuelle, comme nous pouvons nous en conuaincre 
avec les informations suivantes. 

Selon une etude publiee par Computer Business News en mars dernier, revolution previsible pour les 
quelques annees d venir est importante. En 1981, les parte de marche etaient les suivantes : TRS (28 %}, 
Apple (25 %), Hewlett-Packard (11 %), Commodore (10 %), Xerox + DEC + IBM (10 %), autres (16 %). 
Selon les previsions, les chiffres de 1985 seraient les suivants : TRS (15 %), Apple (12 %), H-P (14 %), 
Commodore (3 %}, Xerox (1 7 %), DEC (11 %), IBM (23 %), autres (5 %). Ceci dit, etant donne I' expansion 
prevue pour ce marche, la baisse de 50 % de part de marche de TRS et Apple devrait en fait correspondre a 
une hausse confottable du chiffre d'affaires. Ainsi, les ventes d* Apple au premier trimestre 1982 ont ete de 
131 millions de $ (66 % de hausse sur 81), avec un benefice de 10 % du chiffre d'affaires. 

Nous aurons done I' occasion de pennettre aux utilisateurs de langue fmnqaise d'echanger leur savoir-faire 
sur Apple pendant encore longtemps. Dans ce numero, Michel Crimont tennine sa serie sur le programme de 
catalogue geneml en Pascal Christian Colmant vous offre une revue des memoires de masse. J.-F. Duvivier 
presente un tableau de reference complet des codes ASCII, afin de vous eviter d' avoir a feuilleter des sources 
multiples pour rechercher certains renseignementa de base. Enfin, Dominique Compare, un lecteur de Pom's, 
propose des progmmmes en BASIC, largement commentes a {'attention des debutants, destines a faciliter la 
creation et I'utilisation de tables de formes, en graphique haute resolution. 

Toutes les felicitations de I'equipe de Poms vont a Dominique Devemay, qui a reussi a resoudre notre 
probfeme-concours. Nous avons regroupe ses remarques et celles de I'auteur du probleme, J.-F. Duvivier, 
dans un article explicatif. Nous vous appoitons dans ce quatridme numew de nombreuses informations de 
toutes sortes et une gmnde variete de programmes. A titre de compensation, les mordus de I'assembleur 
twuveront leur plaisir dans les articles de Gilles Mauffrey et Jacques Tran-Van. Nousfaisons dans ce numero 
{'experience de reduire le texte, ce qui nous permet de vous proposer V equivalent de 10 pages 
supplementaires. 

Nous rappelons aux lecteurs quils peuventxommander les disquettes de Pom's separement, ainsi que les 
numeros anterieurs. Nous approchons cependant de la rupture de stock sur le numero 1, dont plus de 2 000 
exemplaires ont ete vendus avant la fin du mois d'avril 

Herve Thiriez 
Redacteur en chef 
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Communiquez grace au format DIF 



La tentation est grande, des que l'on peut 
amener un gros ordinateur a communiquer avec 
un ordinateur individuel, de transferer des 
fichiers entre ces deux materiels, afin par 
exemple de prof iter des nombreux programmes 
disponibles sur 1' ordinateur individuel, 
ftinsi, n'est-il pas possible d'interroger un 
fichier gere par un gros ordinateur pour le 
traiter a l'aide d'un programme de calcul 
(Visicalc), de gestion de base de donnees (DB 
Master) ou d 1 edition de graphiques 
(Visiplot), a titre d'exemples ? 
Eh fait, cela est plus facile qu'il n ! y 
parait a priori. II f aut d'abord reussir a 
etablir la communication de facon a pouvoir 
creer le fichier sur disquette. Ehsuite, il 
suffit de mettre les donnees sous un format 
qui les rende accesibles a des programmes 
tels que ceux cites plus haut . lb f ormat 
unique suffit pour atteindre cet objectif, le 
format DIF. 

1. Le transfert de 1 'ordinateur central vers 
1 1 Apple 

La solution a ce probleme est specif ique de 
l'equipement jouant le role d 1 ordinateur 
central . 

Le cas simple est celui d'un ordinateur muni 
d'une interface RS 232. Du cote de 1' Apple, 
la communication s'effectue au moyen d'une 
carte de communication. Un logiciel de 
communication comme VISITERM permet alors de 
saisir les donnees dans un fichier. 

Nous avons ete conf rontes a un autre cas, 
celui de la communication avec un ordinateur 
CII-HB 61 DPS. Ce materiel est prevu pour 
fonctionner seulement en relation avec des 
terminaux. II faut alors que 1' Apple se 
comporte a son egard exactement comme un 
terminal. Nous avons pour cela ajoute a notre 
Apple une carte de communication speciale 
fabriquee par SOFfllG. Deux courts programmes 
(un pour le 61 DPS et un pour l 1 Apple) 
permettent de creer un fichier sequentiel en 
caracteres ASCII. 

2. Communiquer sans programmer avec Visicalc 
et DB Master 

La societe Personal Software a defini un 
format de fichier sequentiel, dont le but est 
de servir de norme de communication entre des 
programmes differents. Sans aucune program- 
mation, des^ programmes utilisant le format 
DIF peuvent echanger des donnees a loisir. 
Ce format est appele DIF, Data Interchange 



Format; il est accepte par les programmes de 
Personal Software ainsi que par ceux de 
Stoneware, la societe qui a produit le DB 
Master. La description detaillee des normes 
du f ormat DIF se trouve dans les manuels de 
Visicalc et DB Master; nous y renvoyons le 
lecteur. Le programme que nous presentons 
ci-dessous s r inspire tres largement du modele 
de programme : CREATING A DIF FILE. 
Pour traduire le fichier issu de 
1 'ordinateur, nous le recopions prealablement 
dans un tableau charge en memoire centrale. 
Cette method e ne convient qu'au transfert de 
petits fichiers. Dans le cas de fichiers 
importants, il faudra mettre dans le format 
DIF les enresgistrements les uns apres les 
autres . 

Le tableau obtenu ainsi est ensuite traduit 
en un fichier de format DIF. Ce format 
comporte un chapeau J. header) qui deer it la 
structure du fichier, notamment le nombre 
d 1 enregistrement s (vectors) et de rubriques 
(tuples) par enregistrement. 

Ehsuite, chaque debut d ' enregistrement est 
signale par "BOT M et, pour chaque rubrique 
d'un enregistrement: 

a) quand la rubrique est numerique, il faut 
un code "0", suivi de la valeur numerique et 
de la lettre "V"; 

b) quand la rubrique est alphanumerique, on 
doit avoir un code "I", suivi de la valeur 
,T ,T et de la chaine. 

3. Un aspect des relations entre ordinateur 
individuel et, ordinateur central 

Les donnees recueillies sur un ordinateur 
individuel peuvent etre manipulees a volonte 
sans mobiliser 1' ordinateur central. Elles 
peuvent etre traitees et/ou completees 
localement puisque des lqgiciels tels que DB 
Master savent fusionner des donnees 
d'origines variees (en utilisant un logiciel 
complementaire, le Utility Pack). 
Toutefois, la perspective la plus 
interessante me parait etre 1 'utilisation de 
l 1 ordinateur individuel pour la manipulation 
des donnees et la mise en forme de textes ou 
de graphiques, le stockage des donnees etant 
pris en charge par 1' ordinateur principal. 
La grande diffusion des lqgiciels pour 
micro-ordinateurs les rend accessibles a un 
cout modere . Ceci conduira a mon avis a un 
partage des taches entre grosses et petites 
machines: 1 ! ordinateur individuel servira a 
manipuler les donnees a 1' echelon individuel, 
selon les besoins specif iques d'un 
utilisateur. II devient ainsi le support 
d'une expression personnelle. 



NDLR - Les utilisateurs de Visicalc 16 
secteurs doivent consulter le numero de leur 
version Visicalc, qui apparait lors du boot. 
Si celui-ci est "193B0", il faut essayer de 
la faire remplacer par une bonne version. Eh 
effet, il y a des bogues dans cette version, 
dont le pire est que la sauvegarde d'un 
fichier DIF a partir de Visicalc peut rendre 
la disquette illisible; pour couronner le 
tout, ce phenomene est aleatoire. Attention ! 

3LIST 

10 REM : CETTE MAQUETTE 

20 REM tTRADUIT UN FICHIER ASCII 

SEQUENTIEL 
3« REM tRECU PAR EX* D'UN 61 DPS 



40 REM :EN UN FICHIER -DIF- 

50 REM :<DATA INTERCHANGE FORMAT 

> 

60 REM :<REGISTRED TRADE MARK> 

70 REM : <PERSONNAL SOFTWARE> 

80 REM 

?o rem :le PROGRAMME COPIE LE FI 

chier dans un tableau 
100 input m nom du fichier a lire 
: " ;f$ 

110 input m nb d ' enregistrements 



120 INPUT "NB DE RUBRIQUES 1"IRX 



1JU 


D$ = 


CHR$ <4> 


■f A ft 

in u 


0P$ = 


D* + "OPEN" + F$ 


1DU 


RD$ = 


D$ + "READ 1 * + F$ 


i L ft 

160 


CL$ = 


D* + "CLOSE" ♦ F$ 


1/0 


DIM N*(NX,RX) 


18 


PRINT 


0P$J PRINT RD$ 


IV 


FOR I 


= 1 TO NX 


20 


FOR J 


= 1 TO RX 


210 


INPUT 


N$(I - 1 t J - 1 ) 


220 


NEXT 


J 


O O ft 

Z3U 


NEXT 


I 


r> a ft 


PRINT 


CL$ 


250 


REM 




O L ft 


REM - 


TRADUCTION DU TABLEAU 


ft 

2/0 


REM - 


EN UN NDUVEAU FICHIER 


/,n ft 

280 


REM - 


LE PROGRAMME UTILISE 


*>0 ft 

2r U 


REM 


LE NOM DU FICHIER 


ouu 


REM 


LE NB DE VECTEURS 


O 1 ft 


REM 


(ENREGISTREMENTS) 


O*^ ft 

320 


REM 


LE NB DE TUPLES 


330 


REM 


(RUBRIQUES) 


34 


REM 


LE TYPE DES DONNEES 


350 


REM 


*TYPE = NUMERIQUE 


360 


REM 


*TYPE 1 = CHAINE 


370 


REM 





Suite 



A TRAVERS LA PRESSE APPLE DECHAINEE 

La Porarae d 1 0r revient ce mois-ci a Henry 
Roberts qui re pond aux questions des lecteurs 
de CALL-A.P.P.L.E. dans une rubrique inti- 
tulee APPLE DOCTOR (numero d'octobre 1981). 
Nous traduisons ... 

Question : On ne parle que du Pascal un peu 
partout. De quoi s 1 agit-il et pourquoi tout 
cet interet? Que peut-il faire que le BASIC 
ne peut pas? 

Reponse : Le Pascal tire son nom d*un 
mathematician Suisse, nomme Blais Pascal 
(sic) qui vivait il y a une centaine d'an- 
nees. Ch n f a jamais pu rae fournir la raison 
de ce choix, alors que Pascal est raort bien 
avant que le premier ordinateur ne soit 
construit ! 

NE S'AGIT-IL PAS PLUTOT D T UN MOINE BELGE DE 
LA FIN DU MOYEN AGE QUI, LE PREMIER, A DIT 
SON CHAPELET SUR UNE MACHINE DE WOZNIAC ! 




Pom's n°4 



r 



380 

390 

10 
110 
120 
130 
110 
150 
160 

17 
180 
190 

50 
510 

520 



53d 
510 

550 
560 
570 
580 



590 
60 
610 
62 

630 
610 
650 

660 
67 
680 



PRINT "NOM DU FICHIER DIF A 
CREER : " 

REM -LE PROGRAMME SAISIT LE 

NOM DU FICHIER 

INPUT F* 
OP* « D* + "OPEN" + Ft 
RD* = D* + "READ" + F* 
CL* = D* + "CLOSE" + F* 
WT* = D* + "WRITE" ♦ F* 

PRINT OPf 

REM -PUIS SAISIT LE NB D'ENR 
EGISTREMENTS 

REM DANS LA VARIABLE NV 

NV = N% 
REM -ET LE NB «OE TUPLES 
REM DANS LA VARIABLE NT 

NT = RX 

REM -ET ECRIT LE <DIF HEADER 



GOSUB 80 

REM -PUIS SAISIT LE TYPE DE 

CHAQUE DONNEE 

DIM TYX(NT) 

FOR I = TO NT - 1 

PRINT "0=NUM 1=CHAINE" 

PRINT "LE TYPE DE LA RUBRIQU 

E 'SI + U" EST :" 

INPUT TY%<I) 

NEXT I 

FOR I b i TO NV 

REM -ECRIT LE DEBUT D'UN TUP 

LE 

t = - i:v = o:s$ = "bot" 

GOSUB 910 

REM -RECHERCHE CHAQUE DONNEE 



FOR J = 1 TO NT 
T = TY%(J - 1) 
IF T = THEN V 
- 1»J - 1)) JS* 



VAL 

n yi» 



(N*(I 



690 IF T = 1 THEN V = OtS* = N*( 

I - 1,J - 1) 
70 REM -ET L' ECRIT 
710 GOSUB 910 
720 NEXT J 
730 NEXT I 

710 REM -PUIS ECRIT FIN DES DONN 
EES 

750 T = - 1JV = 0:S$ = "EOD" 
760 GOSUB 910 
770 PRINT CL* 

780 PRINT "FIN DE LA CREATION DU 

FICHIER DIF "JF* 
790 STOP 

80 REM -PROCEDURE D'ECRITURE DU 

<DIF HEADER> 
810 PRINT WT* 

820 PRINT "TABLE": PRINT "0,1": 

GOSUB 880 
830 PRINT "TUPLES": PRINT "C'JN 

T: GOSUB 880 
810 PRINT "VECTORS": PRINT "0,"} 

NV: GOSUB 880 
850 PRINT "DATA": PRINT "0,0": 

GOSUB 880 

860 PRINT D* 
870 RETURN 

880 REM -PROCEDURE D'ECRITURE DE 

" " (CHAINE VIDE) 
890 PRINT CHR* (31) l CHR* (31) 
90 RETURN 

910 REM -PROCEDURE D'ECRITURE DE 

S DONNEES 
920 PRINT WT» 

930 print t;",";v 

910 PRINT S* 

950 PRINT D* 

960 RETURN 

970 END 
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Un programme 
de TRACE selective 



Ce programme permet d'obtenir la trace 
selective d'une serie d T instructions d*un 
programme assembleur. Pour rend re ce 
programme aussi simple et aussi court que 
possible, les sous-routines moniteur et DOS 
ont ete utilisees tres souvent . Le corps du 
programme (la sous-routine STEP) est 
pratiquement identique a celui du moniteur de 
l r Apple II avec BASIC entier en ROM. Ce 
programme exige un Apple 48K; il est 
utilisable en mode moniteur ou en mode 
direct . 

Utilisation du programme 

Pour l 1 appel de ce programme, la commande 
CHAIN du DOS a ete modifiee en une commande 
TRACE; cette commande, pour ne pas etre 
confondue avec la commande BASIC, doit etre 
suivie du nom du programme a tracer et 
eventuellement du numero du drive, de 
^adresse de depart du trace et de ^adresse 
finale du trace. La syntaxe est la suivante : 
TRACE nomprogramme{ , Dx, Rad, Baf ) 
chacune des informations entre parantheses 
etant facultative. Si le numero de drive est 
absent, le drive precedemment utilise sera 
vris par defaut. Si 1 'adresse de depart du 
trace est omise, 1 T adresse de debut de 
programme sera prise par defaut- Et enfin, si 
1 'adresse de fin de trace est omise, 
1 'adresse de fin de programme sera prise par 
defaut. Ces donnees numeriques peuvent etre 
ionnees sous forme decimale ou hexadecimale ; 
dans ce dernier cas, elles doivent etre 
precedees du signe $. 

Les modifications du DOS et le chargement du 
programme de TRACE sont faites par le 
programme PRTR. Quand vous en avez termine 
avec le programme TRACE, je vous conseille de 
rebooter le DOS, car certains parametres 
auront ete modifies, et la commande CHAIN 
supprimee . 

Analyse du programme 

Quand on tape "TRACE nomprogramme, R$ad , B$af' T ; 
nomprogramme est mis en adresse AA75 et 
suivantes, ad_ en AA6E et AA6F, af en AA70 et 
AA71. Les premieres instructions sauvent les 
registres et chargent le programme en memoire 
centrale, par appel aux sous-routines 
moniteur SAVE (FF4A) et DOS BLOAD (A35D). 

L 1 adresse de fin de programme est alors 
calculee, et les adresses de debut et fin de 



trace sont soit verifiees, si elles ont ete 
fournies, soit initialisers dans le cas 
contraire . 

Le programme de trace proprement dit debute 
alors. Si une instruction doit etre tracee, 
elle e3t tout d'abord disassembles a l'aide 
de la sous-routine moniteur INSDSP (F8D0), 
sinon seule la longueur de 1 1 instruction est 
calculee par la sous-routine INSDS2 (F88C); 
cette longueur est conservee a 1 T adresse 2F 
par le moniteur. Ehsuite, les instructions a 
executer, c^st-a-dire les instructions qui 
ne correspondent pas a des sauts, des 
branchements ou des retours, sont executees 
apres restauration des registres grace a la 
sous-routine RESTORE ( FF3F) , et les 
differents registres sont edites par REGDSP 
(FAD7). Le programme donne de plus la 
decomposition du registre d T etat pour que 
1 'utilisateur puisse suivre plus facilement 
le deroulement du programme . 

Les instructions de saut et de retour donnent 
simplement lieu a un calcul de l 1 adresse de 
l 1 instruction suivante. Les instructions de 
branchement sont transf ormees pour se 
brancher soit sur BREL si le test est 
positif, soit sur NBREL dans le cas 
contraire. Dans tous les cas, l r adresse de la 
prochaine instruction a executer est alors 
calculee, a l T aide des differentes 
sous-routines moniteur PCADJ, une fois les 
registres conserves, 

II est possible de suspendre a tout moment 
l 1 execution du programme en appuyant sur la 
touche ESC, Pour interrompre def initivement 
le programme, il faut taper CONTROL-C. 

Limites du programme 

Comme 1 T utilisation des sous-routines 
moniteur SAVE et RESTORE modifie les adresses 
48-^9, cela interdit de tracer des programmes 
faisant appel au DOS, qui les utilise. 

D'autre part, on ne peut tracer que des 
instructions du programme lui-meme et non des 
instructions en ROM par exemple . Nous 
laissons le soin au lecteur de modifier le 
programme pour eliminer la premiere 
limitation. Quant a la seconde, dans certains 
cas, elle ne peut etre eliminee. Pour s r en 
persuader, le lecteur pourra regarder ce qui 
se passe quand on veut tracer la sous-routine 
de sortie ecran COUT 



10 HOME t PRINT "LA COMMANDE CHA 

IN OU DOS EST CHANGEE EN" : PRINT 
" UNE NOUVELLE COMMANDE TRAC 
E": PRINT 

20 PRINT "BLOAD B • TR" J CALL 2159 



source file: TRACE 



0083: 






1 


CONTRC 


EQU 


$83 


X 


CONTROL-C 


oo?b: 






2 


ESC 


EQU 


$9B 


X 


ESCAPE 


03ea: 






3 


RECON 


EQU 


$3EA 






ff4a: 






4 


SAVE 


EQU 


$FF4A 


X 


SAUVEGARDE DES REGISTRES 


ff3f: 






5 


RESTORE 


EQU 


$FF3F 


X 


RESTAURATION DES REGISTRES 


F8D0: 






6 


INST DSP 


EQU 


$FBD0 


X 


DESASSEMBLE 1 INSTRUCTION 


002c: 






7 


RTNL 


EQU 


$2C 






002D: 






8 


RTNH 


EQU 


♦ 2D 






oo2f: 






9 


LENGTH 


EQU 


$2F 


X 


LONGUEUR DE L ' INSTRUCTION 


0048: 






10 


STATUS 


EQU 


$48 






oo 3a: 






11 


PCL 


EQU 


$3A 


X 


COMPTEUR DE PROGRAMME 


oo3b: 






12 


PCH 


EQU 


$3B 


X 


A TRACER 


AA72: 






13 


DPG 


EQU 


$AA72 






AA60 : 






14 


LPG 


EQU 


$AA60 






AA6E: 






15 


OTR 


EQU 


$AA6E 


X 


DEBUT DE TRACE 


AA7 0: 






16 


FTR 


EQU 


$AA70 


X 


FIN DE TRACE 


FCA8: 






17 


DELAY 


EQU 


$FCAB 




x ROUTINES 


F948: 






18 


PRBLNK 


EQU 


$F948 




x CLASSIQUES 


foed: 






19 


COUT 


EQU 


$FDED 




x VOIR REF. 


fd8e: 






20 


CROUT 


EQU 


$FD8E 




x MANUAL 


cooo : 






21 


KBD 


EQU 


$C000 






co 10 : 






22 


KBOSTRB 


EQU 


$C010 






FF69: 






23 


MON 


EQU 


$FF69 


X 


RETOUR AU MONITEUR 


F88C: 






24 


INSDS2 


EQU 


$F88C 






F8B2: 






25 


INSDS1 


EQU 


$F882 






FAD7 : 






26 


REGDSP 


EQU 


$FAD7 


X 


IMPRESSION 


fada: 






27 


REGDSP1 


EQU 


$FADA 


X 


DES REGISTRES 


F954: 






28 


PCADJ2 


EQU 


$F954 


X 


CALCUL D'ADRESSES 


F956: 






29 


PCADJ3 


EQU 


$F956 


X 


DU PROGRAMME 


FC58: 






30 


HOME 


EQU 


$FC58 






A35D: 






31 


DLOAD 


EQU 


$A35D 


X 


ADRESSE SS-ROUTINE BLOAD 


aasf: 






32 


CDOP 


EQU 


$AA5F 


X 


ADRESSE CODE INST. DOS 


0032: 






33 


CLOAD 


EQU 


$32 


X 


2XC0DE DOS BLOAD 


NEXT 


OBJECT 


file: name is 


TRACE. DBJ0 






9400: 






34 




ORG 


$9400 






9400:20 


4A 


FF 


35 




JSR 


SAVE 






9403:20 


58 


FC 


36 




JSR 


HOME 






9406:A9 


32 




37 




LDA 


£CLDAD 






9408:8D 


5F 


AA 


38 




STA 


CDDP 






940B:20 


5D 


A3 


39 




JSR 


DLDAD 


* 


CHARGEMENT OU PROGRAMME 


940e:ad 


6a 


AA 


40 




LDA 


LPG 




x CALCUL 


9411 : 18 






41 




CLC 






x DE 


9412:60 


72 


AA 


42 




AOC 


DPG 




x L' ADRESSE 


9415:8D 


D9 


95 


43 




STA 


PFI 




x DE 


9418:AD 


61 


AA 


44 




LDA 


LPG+1 




x FIN 


941B:6D 


73 


AA 


45 




AOC 


DPG+1 




x OU 


941E:8D 


DA 


95 


46 




STA 


PFI+1 




x PROGRAMME 


9421: AD 


73 


AA 


47 




LDA 


DPG+1 


X 


VERIFICATION 


9424 :CD 


6F 


AA 


48 




CMP 


DTR+1 


X 


DES ADRESSES 


9427:90 


16 




49 




BCC 


ADFI0 


X 


DE DEBUT ET 


9429 :F0 


09 




50 




BEQ 


SUIVER 


X 


FIN DE TRACE 


94 2B:80 


6F 


AA 


51 




STA 


DTR+1 


X 


ET VALEURS 



8 



Pom's n°4 



942E:A0 


72 


AA 


52 




LDA 


DPG 


x PAR DEFAUT 




9431 :4C 


3C 


94 


53 




JMP 


MDD2 


x EVENTUELLES 




94 34 J AO 


72 


AA 


54 


SUIVER 


LDA 


DPG 


x DE 47 A 72 




94 37 J CO 


6E 


AA 


55 




CMF' 


DTR 






943A:90 


03 




56 




BCC 


ADFI0 






943C:8D 


6E 


AA 


57 


M0D2 


STA 


OTR 






943FMC 


51 


94 


58 


AOFI0 


JMP 


VERFIN 






9442: AD 


DA 


95 


59 


0EF2 


LOA 


PFI+1 






9445 !8D 


71 


AA 


60 




STA 


FTR+1 






9448: AD 


D9 


95 


61 




LOA 


PFI 






944B:8D 


70 


AA 


62 




STA 


FTR 






944EMC 


67 


94 


63 




JMP 


TRO 






9451 :ad 


71 


AA 


64 


VERFIN 


LOA 


FTR+1 






9454:F0 


EC 




65 




BEG 


0EF2 






9456:CD 


DA 


95 


66 




CMP 


PFI+1 






9459:90 


04 




67 




BCC 


SUIFIN 






945B:F0 


02 




68 




BEQ 


SUIFIN 






945D:B0 


E3 




69 




BCS 


0EF2 






945F: AD 


70 


AA 


70 


SUIFIN 


LOA 


FTR 






9462: CO 


D9 


95 


71 




CMP 


PFI 






9465: BO 


DB 




72 




BCS 


0EF2 






9467: AO 


72 


AA 


73 


TRO 


LOA 


OF'G 






946A:85 


3A 




74 




STA 


PCL 






946C: AD 


73 


AA 


75 




LOA 


OPG+1 


* INITIALISATION 


DU PROGRAMME 


946F:85 


3B 




76 




STA 


PCH 






9471 :20 


94 


94 


77 


TRACE 


JSR 


WAIT1 






9474:20 


B6 


94 


78 




JSR 


SITR 






9477 :B0 


09 




79 




BCS 


PREEX 






9479:20 


8F 


94 


80 




JSR 


WAIT 






947C:20 


DO 


F8 


81 




JSR 


INSTOSP 






947FMC 


89 


94 


82 




JMP 


EXEC 






9482 :A2 


00 




83 


F'REEX 


LDX 


£00 






94 84:A1 


3A 




84 




LDA 


<PCL,X> 






9486:20 


8C 


F8 


85 




JSR 


INSDS2 






9489:20 


E6 


94 


86 


EXEC 


JSR 


STEP 






948C:4C 


71 


94 


87 




JMP 


TRACE 






948F: 






88 


11 sous 


PROGRAMME DE 


SAISIE CLAVIER ET 


DELAY 


948F :A9 


ce 




89 


WAIT 


LDA 


£203 






9491:20 


A8 


FC 


90 




JSR 


DELAY 






94 94:2C 


00 


CO 


91 


WAIT1 


BIT 


KBD 






9497 : 1 


1C 




92 




BF'L 


WRTS 






94 99: AO 


00 


CO 


93 




LDA 


KBD 






949C:C9 


9B 




94 




CMP 


£ESC 






949E:D0 


08 




95 




BNE 


WRTSO 






94A0 :2C 


10 


CO 


96 




BIT 


KBOSTRB 






94A3:2C 





CO 


97 


W2 


BIT 


KBD 






94A6:i0 


FB 




98 




BPL 


W2 






94A8:A0 


00 


CO 


99 


WRTSO 


LDA 


KBD 






94AB:2C 


10 


CO 


100 




BIT 


KBDSTRB 






94AE:C9 


83 




101 




CMP 


£CONTRC 






94bo :do 


03 




102 




BNE 


WRTS 






94B2MC 


2F 


95 


103 




JMP 


SORTIE 






94B5:6 






104 


WRTS 


RTS 








94B6: 






105 


xx SOUS 


PROGRAMME VERIFICATION A TRACER 


DU NON 


94B6: A5 


3B 




106 


SITR 


LDA 


PCH 






94B8:C0 


6F 


AA 


107 




CMP 


DTR+1 






94BB :90 


22 




10B 




BCC 


NON 






94bd:do 


07 




109 




BNE 


SITR2 






94BF:A5 


3A 




110 




LDA 


PCL 






94Ci:C0 


6E 


AA 


111 




CMP 


DTR 







Pom's n°4 





190 


19 




112 




BCC 


NON 






94 C6! 


1 AS 


3B 




113 


SITR2 


LDA 


PCH 






94 C8 


J CD 


71 


AA 


114 




CMP 


FTR+1 






94CB 


:9o 


OB 




115 




BCC 


OUI 






94CD 


:do 


10 




116 




BNE 


NON 






94 CF 


JA5 


3A 




117 




LDA 


PCL 






94D1 


:cd 


70 


AA 


118 




CMP 


FTR 






94 04 


J90 


02 




119 




BCC 


OUI 






94 D6 


:do 


07 




120 




BNE 


NON 






94 08 


:i8 






121 


OUI 


CLC 








9409 


JA9 


00 




122 




LDA 


£00 






94DB 


J8D 


CF 


95 


123 




ST A 


INDIC 






94 de: 


!60 






124 




RTS 








94DF! 


138 






125 


NON 


SEC 








94E0 


* A9 


01 




126 




LDA 


£01 






94E2! 


!8D 


CF 


95 


127 




STA 


INDIC 






94 E5! 


!60 






128 




RTS 








94 E£! 








129 


** ANALYSE ET EXECUTION 


DE L ' INSTRUCTION 




94E6! 


168 






130 


ST tr 


PLA 




* NOUS REPRENONS 




94E7! 


!85 


2C 




131 




STA 


RTNL 


* ICI LE STEP 




94E9J 


68 






132 




PLA 




* DU MONITEUR 




94EAJ 


85 


20 




133 




STA 


RTNH 


* DE L ' APPLE II 




94EC! 


A9 


EA 




134 




LDA 


£$EA 


* BASIC INTEGER 




94EEi 


8D 


C6 


95 


135 




STA 


INSTR 


* SANS AUTOSTART 




94F1 ! 


!8D 


C7 


95 


136 




STA 


INSTR+1 






94 F4! 


!8D 


C8 


95 


137 




CT A 
O 1 ft 


J.N5T R+£ 






94F7! 


A2 


00 




138 




LDX 


£00 






94F9! 


!A1 


3A 




139 




LDA 


<PCL,X) 


DBLQAD CHARGE .OBJ ,A*90 00 




94FB! 


!F0 


2C 




140 




BEG 


BREAK 


1CALL-151 




94FD 


!A4 


2F 




141 




LDY 


LENGTH 






94FF! 


C9 


20 




142 




CMP 


£$20 


*90I0«922A 




9501! 


FO 


50 




143 




BEG 


JSP 




9503! 


C9 


60 




144 




CMP 


£$60 


9010- 01 80 F6 03 A9 9B 


BD 


9505! 


!F0 


3C 




145 




BEG 


RET OUR 


9808- 03 A9 4C BD F5 3 
9110- 00 BD 2B 90 9D 00 9B 


A2 
EB 


950 7! 


!C9 


4C 




146 




CMP 


£$4C 


9018- DO F7 BD 2B 91 9D 00 


9C 


9509! 


:fo 


53 




147 




BEG 


JUMP 


t020- EB DO F7 A9 9A 80 01 


9D 


950B! 


!C9 


6C 




148 




CMP 


£$6C 


9IZB- 1C D1 A7 A3 IE BD AC 
9030- AS IF 8D AD AA 20 B7 


AA 

00 


950D! 


!F0 


50 




149 




BEG 


IN JUMP 


9038- C9 22 DO 2B A9 06 85 


Cl 


950F! 


C9 


40 




150 




CMP 


£$40 


9140- AO 00 8C EB 87 20 Bl 
9048- C9 22 F0 0C 09 B0 99 


00 
75 


9511! 


!F0 


2C 




151 




BEG 


XRTI 


9050- AA C8 CO IE 90 EF BO 


34 


9513! 
9515! 


!29 
49 


IF 
14 




152 
153 




AND 
EOR 


£$1F 
£$14 


9058- A9 EF 83 Cl 20 Bl 00 

9060- 00 DO 4C 60 AS 88 48 

9061- B9 48 20 78 DD 24 11 


CO 
A3 

30 


9517! 


C9 


04 




154 




CMP 


£$04 


9070- 08 A2 A3 20 F3 9C 4C 


12 


9519! 


FO 


02 




155 




BEG 


RELAT 


907i- D4 68 85 B9 68 BS 88 
9081* €3 DF 85 IE 84 IF AO 


20 
00 


951B! 


Bl 


3A 




156 


ECIN 


LDA 


<PCL) ,Y 


90BB- Bl IE DO 05 A2 OB 4C 


OA 


951D! 


99 


C6 


95 


157 


RELAT 


STA 


INSTR, Y 


9090- 9C 8D AB AA CB Bl IE 
TiTo— C8 Bl IE 85 IF 6B BS 


48 
IE 


9520! 


88 






158 




DEY 




90AO- AO 00 Bl IE 09 80 99 


73 


9521! 


10 


F8 




159 




BPL 


ECIN 


90 A8- A A C8 CC A8 A A DO F3 


A9 


9523! 


20 


3F 


FF 


160 




JSR 


RESTORE 


90B*- AO 99 73 AA CB CO IE 
9088- F8 8D BO AA 20 F5 9C 


DO 
20 


9526! 


4C 


C6 


95 


161 




J MP 


INSTR 


9IC0- 87 00 FO 12 20 BE DE 


20 


9529! 


20 


82 


F8 


162 


BREAK 


JSR 


INSDS1 


90C8- 67 DD 20 52 E7 A5 51 
9100- 02 90 B9 4E BO AA A9 


C9 
01 


952C! 


20 


DA 


FA 


163 




JSR 


REGDSP1 


90DB- 8D F4 87 A9 1 8D ED 


B7 


952F! 


20 


EA 


03 


164 


SORTIE 


JSR 


RECON 


9IE0- A9 11 BD EC B7 20 £6 
9*E8- CE ED 87 FO 46 20 CB 
90FC- AO EB 8C AE AA AD AE 


9C 
9C 
AA 


9532! 


A9 


00 




165 




LDA 


£00 


9534 S 


A2 


03 




166 




LDX 


£03 


90F8- 18 69 23 A8 8D AE AA 


C9 


9536! 


9D 


6E 


A A 
H H 


167 


SORO 


STA 


OTR,X 


9100- 03 FO E5 A2 00 B9 BB 
9108- FO 29 DD 75 AA DO £6 


83 
C8 


9539! 


CA 






168 




DEX 




9110- E8 EO IE DO FO B9 9C 


B3 


953A! 


!10 


FA 




169 




BPL 


SORO 














953CS 


4C 


69 


FF 


170 




JMP 


MON 






953FJ 


18 






171 


XRTI 


CLC 








9540! 


68 






172 




PLA 









10 

1 Pom's n°4 



9541 i 


185 


18 




173 




STA 


STATUS 












9543i 


168 






171 


RET OUR 


PLA 














9544 i 


t85 


3A 




175 




STA 


PCL 












9516! 


\6B 






176 




PLA 














9547! 


185 


3B 




177 


PPTMP9 


STA 


PCH 












7 J "7 < 


> Rj 


£r 




I/O 


r L1NL J 


LDfi 


LENGTH 
























954B! 


! 20 


56 


F9 


179 




JSR 


PCADJ3 


9118- 29 04 00 04 


A2 


0D 


DO 


15 


954E! 




38 




180 




STY 


PCH 




9120- AC AE AA B9 


B9 


B3 


BD 


ED 














9128- 67 89 BB B3 


30 


C7 


8D 


EC 


9550 ! 


! 18 






181 




CLC 






9130- 87 DO 0E A2 


06 


BE 


5C 


AA 


9551 J 


190 


14 




182 




BCC 


NEWPCL 




9138- 20 F5 9C 20 


93 


FE 


4C 


D5 


9553 < 


> 4 O 

! 18 






183 


JSP 


CLC 




9140- A6 90 AF AA 
9148- 0C A5 IE A4 


20 
IF 


CB 
20 


9C 
EE 


A2 
9C 


9554! 


120 


51 


F9 


181 




JSR 


PCADJ2 




9131- AD AF AA F0 


03 


20 


EA 


9C 


7 JJ/ 4 


:aa 






loo 




T A V 

TAX 






9138- 20 BB 9C AD 
9160- 2C B0 AA 30 


AF 
OA 


AA 
AS 


F0 

50 


40 

80 


9558J 


.98 






186 




TYA 






9168- BB B4 AS 31 


8D 


BC 


B4 


38 


9559! 








187 




PHA 






9170- AD BB B4 E9 


04 


85 


IE 


80 




> O A. 

>8A 










9178- FO 67 AD BC 


B4 


E9 


00 


95 


r55 A < 






188 




TXA 




9180- IF 8D Fl 67 


A9 


04 


BD 


DA 


955B! 


118 






189 




PHA 






9188- 9C IB 60 BD 


B4 


SD 


AB 


AA 


O c. P < 
7JJL i 


► An 

► RU 


n o 

U L. 




1 T U 




LDY 


O ^ ft o 

£» 0Z 




9190- A9 00 BD E2 
9198- AD C9 B3 F0 


9C 
22 


BD 
20 


AF 
D9 


AA 

9C 


955E ! 


! 18 






191 


JUMP 


CLC 




91A0- AE AE AA EE 


Fl 


97 


E6 


IF 


955F! 


!B1 


3A 




192 


IN JUMP 


LDA 


< PCL ) , Y 




91AB- EB E0 FE B0 
91BQ- DO A6 20 EA 


ID 

9C 


BD 
20 


BD 
BB 


B3 
9C 


9561! 


AA 






193 




TAX 




91B9- A9 8S 4B 


BD 


DA 


9C 


AD 


9562 


!88 






191 




DEY 




91CI- AB AA 80 E2 


9C 


20 


D9 


9C 


9563! 


IB 1 


3A 




195 




LDA 


<PCL),Y 


91C8- F0 56 AO BC 
9101- BB 9C AO BO 


83 

B3 


F0 
BD 


E3 
ED 


20 
t7 


9565 


586 


3B 




196 




STX 


PCH 


91D8- E6 IF 20 E6 


9C 


AD 


iC 


B3 


9567! 


185 


3A 




197 


NEWPCL 


STA 


PCL 


91EI- BO EC 67 4C 
91E8- 83 8D EC 67 


19 
E8 


9C 
BD 


BD 
BB 


BB 
B3 


9569! 


:bo 


F3 




198 




BCS 


JUMP 


91FI- 60 ED 67 8E 


AE 


AA 


A9 


B7 


956B! 


:as 


2D 




199 




LDA 


RTNH 


91F8- AO E6 20 65 


B7 


90 


11 


A2 


956D < 


TO 




2 




PHA 


9201- 06 4C OA 9C 
9208- 84 91 IE C8 


AO 
CO 


00 
00 


89 
DO 


BB 
F6 


956E! 


! A5 


2C 




201 




LDA 


RTNL 


9210- 60 AO 63 DO 


02 


AO 


B4 


A9 


9570! 


118 






202 




PHA 




9218- 8 6 8D F0 67 
9220- AO AC AA 85 


or 
IE 


ri 

r A 

AD 


P f 

AD 


ou 
AA 


9571! 


AO 


CF 


95 


203 




LDA 


INDIC 


9228- 85 IF 60 










9571 


!D0 


06 




201 




BNE 


PASEC 


























9576! 


!20 


D7 


FA 


205 




JSR 


REGDSP 












9579! 


I20 


7D 


95 


206 




JSR 


ECRFIN 












957C! 


!60 






207 


PASEC 


RTS 














957D! 








208 


xx SOUS 


PROGRAMME ECITURE COMPLEMENTAIRE 






957D 


520 


8E 


FD 


209 


ECRFIN 


JSR 


CROUT 












9580 


! A5 


18 




210 




LDA 


STATUS 












9582 


!8D 


DO 


95 


211 




STA 


TAMPON 












9585! 


! AO 


08 




212 




LDY 


£$08 












9587 


!B9 


DO 


95 


213 


POO 


LDA 


TAB-1 f Y x 


ECRITURE 










958A 


5C9 


AD 




211 




CMP 


£'- 












958C 


EDO 


06 




215 




BNE 


P01 












958E! 


!4E 


DO 


95 


216 




LSR 


TAMPON x 


DETAILLEE 










9591 


S4C 


AE 


95 


217 




JMP 


LOOP 












9591 


J20 


ED 


FD 


218 


P01 


JSR 


COUT x 


DES 










959 7 


:A9 


BD 




219 




LDA 


£' = 












9599 


!20 


ED 


FD 


220 




JSR 


COUT 












959C 


! 4E 


DO 


95 


221 




LSR 


TAMPON x 


REGISTRES 










959F 


!90 


05 




222 




BCC 


P0 












95A1! 


!A9 


BI- 




223 




LDA 


£'1 












95A3! 


!4C 


AS 


95 


221 




JMP 


VAL 












95A6 


! A9 


B0 




225 


P0 


LDA 


£'0 












95A8! 


!20 


ED 


FD 


226 


VAL 


JSR 


COUT 












95AB! 


!20 


18 


F9 


227 




JSR 


PRBLNK 












95AE 


!88 






228 


LOOP 


DEY 














95AF! 


EDO 


D6 




229 




BNE 


POO 












9581 J 


60 






230 




RTS 














95B2! 


\ 18 






231 


BREL 


CLC 




* BRANCHEMENT 








95B3 


:ao 


01 




232 




LDY 


£$01 


* RELATIF 










95B5 


:bi 


3A 




233 




LDA 


(PCL) ,Y 













Pom's n°4 



OCD7 •on 
tod/ ♦ Z U 


=: a co 
J6 r V 


9Q4 




PCADJ3 x CALCUL 


DE LA 


NOUVELLE ADRESSE 




JR 


jLO%J 


O 1 M 


pn 






95EC 5 98 




Z Jo 


TV A 
1 T H 








95BDJ 38 




o o ^ 

237 


CCP 








958E * 80 


87 


Z Jo 


pre 
DUD 


PCINC2 






ncpn • Oil 

tjLD ♦ ZD 


n a C C 

"A r r 


9qo uppri 
tjy r<Dr\C.L 


U Dl\ 


SAVE * PAS DE 


PROBLEME 


7dLJ ♦ do 




941) 




x SAUVEGARDE LES REGISTRES 




O O 




BCS 


PCINC3X ET CALCULELA 


PROCHAINE ADRESSE 


7dLo ♦ tR 






NOP 


x PLACE 






ocr7 • ca 
V%jL/ • LA 




94Q 


NflP 

li U 1 


x DE L' INSTRUCTION 


7JLD ♦ 






NOP 


x A TRACER 




nr pn t zip 


L U V%J 


94c. 


. IMP 
kJI lr 


NBREL 






oc,rr • 4r 
T%jLL ♦ 




94A 

L TO 


JMP 


BREL 






7JLr ♦ U U 




947 INDIC 


DFB 


00 










940 TAMPON 


DFB 


00 






95Di:CE 


D6 AD 


249 TAB 


ASC 


'NV-BDIZC 






95D4:C2 


C4 C9 












9507 I DA 


C3 












95D9 : 


00 


250 PFI 


DFB 


00,00 






xxx SUCCESSFUL 


assembly: 


NO ERRORS 






source file: majdos 










0073: 




1 HIMEM 


EQU 


♦ 73 






940 o: 




2 DEBUT 


EQU 


$94 00 






9D26: 




3 APTR 


EQU 








A893: 




4 LA8E 


EQU 


$A893 






A968: 




5 RH 


EQU 


♦ A968 






A96C: 




6 BH 


EQU 








A9ii: 




7 PARTR 


EQU 


*A9 1 1 






NEXT OBJECT FILE NAME IS 


MAJDOS* OBJ0 






086F: 




8 


ORG 


$8 6F 






08 6F: A9 


00 


9 


LDA 


*> DEBUT 






087 1: 85 


73 


10 


STA 


HIMEM 






0873:A9 


94 


11 


LDA 


*<DEBUT 






0875:85 


74 


12 


STA 


HIMEM+1 






0877:38 




13 


SEC 








0878: A5 


73 


14 


LDA 


HIMEM 






087A:E9 


01 


15 


SBC 


#01 






087C:8D 


26 9D 


16 


STA 


APTR 






087F:A5 


74 


17 


LDA 


HIMEM+1 






088i:E9 


00 


18 


SBC 


too 






0883:8D 


27 90 


19 


STA 


AF'TR+l 






0886:A2 


04 


20 


LDX 


#04 






0888:BD 


A4 08 


21 LOOP 


LDA 


TRAC,X 






088B:9D 


93 A8 


22 


STA 


LABE, X 






088e:ca 




23 


OEX 








088F: 10 


F7 


24 


BPL 


LOOP 






089i:A9 


FF 


25 


LOA 


#*FF 






0893: 8D 


68 A9 


26 


STA 


RH 






0896: 8D 


6C A9 


27 


STA 


BH 






0899: A9 


AO 


28 


LDA 


**A0 






089B:8D 


11 A9 


29 


STA 


PARTR 






889E:A9 


76 


30 


LDA 


#♦76 






08A0:8D 


12 A9 


31 


STA 


PARTR+1 






08A3:60 




32 


RTS 








08Ai:54 


52 41 


33 TRAC 


OCI 


'TRACE 






08A7M3 


C5 













xxx SUCCESSFUL ASSEMBLY J NO ERRORS 
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Un Apple a la clinique 



1 . Description generale 

Pom's a rendu visite au professeur David 
Lewin, qui avait ete designe en 1 968 par le 
congres des gynecologues de langue frangaise 
pour voir comment on pouvait utiliser un 
ordinateur dans la gestion de dossiers 
medicaux en obstetrique et gynecologie. Le 
professeur Lewin a eu la gentillesse de nous 
expliquer comment il s'y etait pris, et 
pourquoi il utilise maintenant un Apple a cet 
ef f et . 

Le probleme essentiel souleve par la gestion 
informatique de dossiers medicaux est que 
ceux-ci comportent potentiellement une grande 
masse et une grande variete d T informations . 
En outre, pour tout simplifier, ces 
informations sont de types et de qualite tres 
diverses (par exemple, comment memorise-t-on 
une radio ?) . Vouloir memoriser la totalite 
des informations relatives a un patient est 
tres diff icilement envisageable, d'autant 
qu*un dossier s T enrichit en permanence de 
donnees chronologiques . En outre, certaines 
donnees sont tres longues, par exemple un 
electro-card iogramme de 24 heures ! 

II faut done choisir de memoriser une 
quantite limitee d } inf ormations, sinon il 
faudrait compter en mega-octets par patient. 

2. L T obstetrique 

Dans une premiere etape, le professeur Lewin 
choisit de s'attaquer au seul probleme de 
l 1 obstetrique . L'avantage, dans ce cas 
particulier, est que 1 T horizon est limite a 
une duree inferieure a une annee : il n'y a 
done pas cumul permanent pour chaque 
patiente. Lh autre avantage de 1 1 obstetrique 
est qu'il existait depuis deja fort longtemps 
une fiche de renseignements quantitatifs qui 
etait remplie habituellement de fagon 
manuelle. II a done suffi d 'analyser cette 
fiche en detail, et de concevoir la meilleure 
fagon de la formaliser pour obtenir le dessin 
de 1 'enregistrement a prevoir pour chaque 
patiente * 

Le premier programme fut ecrit en Fortran sur 
un CII 10070; il tournait en 5 heures un 
quart, et comportait 5.500 instructions- Des 
la fin de la premiere annee, il fallut en 
reecrire une bonne partie a cause d'un 
changement de systeme d 1 exploitation ! Le 
programme, qui marchait parfaitement 



anterieurement , se mettait a eclater avec un 
fatidique JOB ABORTED particulierement genant 
dans ce type d 1 application ... 

Une seconde version vit le jour en Coboi sur 
un IRIS80, suivie par une troisieme version 
en GAP2 sur IBM32. Le professeur Lewin 
s 'etait mis a la programmation et a realise 
ces deux dernieres versions, la premiere avec 
les conseils d' Alain Berdugo. Desirant avoir 
un materiel sous la main, il se mit a 
1' Apple, et ecrivit la derniere version en 
Basic et langage machine (sans assembleur, 
s' il vous plait ) . 

Le programme tourne maintenant parfaitement 
et parvient a enregistrer sur une disquette 
en DOS 3-3 jusqu'a 1000 dossiers, ce qui est 
une performance- En eff et, un dossier 
comporte le nom et les coordonnees de la 
patiente, plus 150 informations. Or, la 
disquette 16 secteurs ne dispose meme pas de 
150 octets par patiente, si l'on desire en 
gerer 1000 ! Ceci est devenu possible par une 
recodification complete des informations. 

Lhe dizaine d'autres obstetriciens sont 
maintenant equipes de ce systeme cles-en-main 
grace au professeur Lewin, Le programme 
permet la saisie, l'archivage, la recherche, 
la mise a jour et certaines analyses 
statistiques . 

Depuis 1969» les fiches d 1 inscription 
manuelles sont toutes regroupees et 
incorporees dans une base de donnees qui est 
en fait la plus importante base de donnees en 
obstetrique du monde, avec 600.000 dossiers. 
Pour le moment, les analyses effectuees sur 
cette base de donnees ne sont pas encore 
realisees sur materiel Apple ! Par contre, les 
fiches provenant des praticiens deja equipes 
par le professeur Lewin sont regroupees en 
plus dans un fichier particulier, dont on 
sait qu T il est encore plus fiable, puisque le 
programme de saisie realise un certain nombre 
de tests et filtre les donnees, Ce 
sous-fichier pourra etre traite et analyse 
avec un Apple equipe d'un disque. 

3. La gynecologie 



La gynecologie represente un probleme de 
toute autre nature, car il faut alors, comme 
en medecine classique, garder le dossier 
d T une patiente de fagon permanente. En outre, 
contrairement au cas de 1 ' obstetrique, les 
donnees interessantes ne sont pas en 
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dominance des informations quantitatives : il 
y a de nombreuses donnees qualitatives que 
l'on ne peut se permettre d'ignorer. 
La question qui se posait alors etait done la 
sulvante : faut-il raettre en place un fichier 
mixte avec des composantes fermees (structure 
fixe) et ouvertes {possibility de texte 
libre) ? Faut-il definir comrae dans le 
premier cas un fichier ferme, ou au contraire 
definir un fichier ouvert ? Dans tous les cas 
rencontres par le professeur Lewin, en 
matiere d r inf ormatisation de dossiers 
medicaux, les fichiers de structure mixte ont 
abouti a des echecs. Lh fichier* ouvert a par 
consequent ete defini, avec pour seule partie 
fermee la partie signaletique, dont on peut 
en effet dif f icilement se passer - 

Le programme resultant est done une sorte de 
base de donnees, dans laquelle 1 T utilisateur 
definit ses propres rubriques. A l'interieur 
de chacune d T entre elles, il peut utiliser 
des mots-cles qu'il definit lui-meme, avec un 
glossaire de 1000 mots au maximum- Le 
programme se charge de la recherche des 
dossiers dans lesquels se trouvent des 
conjonctions donnees de mots-cles, ou des 
mots-cles donnes. A part cela, toutes les 
fonctions habituelles d'une gestion de 
fichier sont disponibles. Sur le meme 
principe, un programme de gestion 
bibliographique a d'ailleurs ete congu, comme 



variante du programme de gestion de dossiers 
en gynecologie. 
4. Conclusion 

Outre les aspects de gestion de dossier, les 
deux programmes peuvent apporter en temps 
reel une aide clinique importante. On peut 
grace a eux interroger le systeme quand un 
probleme delicat se pose, et faire des 
recherches sur les relations entre diverses 
donnees physiques et de sante, entre des 
problemes, leurs traitements et les resultats 
statistiques, - - - 

Eh conclusion, ce qui est interessant dans 
cette experience, c T est que l r on ait pu 
arriver a effectuer un certain nombre de 
travaux sur un petit materiel, apres P avoir 
fait sur un materiel beaucoup plus puissant. 
C'est le contraire de l 1 approche courante, 
dans laquelle on a tendance a avoir besoin 
d'un materiel tou jours plus puissant. Eh 
outre, on constate que le professeur Lewin a 
du se mettre a tout programmer pour pouvoir 
etre satisfait du programmeur, Heureusement 
pour les SSCI que ce n'est pas le cas le plus 
frequent \ 

Ehfin, il faut noter que l r approche fichier 
ouvert est utilisable non seulement dans le 
domaine gynecologique, mais dans 1 T ensemble 
de la profession medicale, et meme au-dela. 



logma 



ETUDIE 

FORME 

REALISE 

UVRE 



• opportunite d'utilisation de I'outil micro-inf ormatique 

• integration entre inf ormatique traditionnelle et personnelle 

• politique de la communication dans Tentreprise 



• formation a l'utilisation de la micro-inf ormatique 

• realisation de programmes a la demande 



• livraison de systemes cles en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 



Nous sommesgestionnaires avant d'etre informaticiens. L'inf ormatique doit s T adapier a rhomme, et non Tinverse 
L outi 1 micro-informatique repond particulierement bien a ce souci de qualite et d'efficacite du travail, 

dans des conditions conviviales, 
Nombreuses references en informatique traditionnelle - divers materiels - et en inf ormatique individuelle - principalement 

Apple - aupres des PME et desgroupes industriels. 

logma sa Centre La Chataigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tel. ; (3) 918.13.07 
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Les memoires de masse 



Sur tout micro-ord inateur, le probleme de la 

capacite de stockage se pose toujours tot ou 
tard, pour une multitude de raisons 

necessite de placer un grand nombre de 

programmes sur support magnetique, ou de 
memoriser des fichiers de grande taille. 

Les utilisateurs d T Apple se sont vite rendu 
compte qu'un espace de 140K octets, sur une 
disquette 54 pouces, etait vite sature; 
heureusement, il existe plusieurs fagons de 
pallier cette limitation. La moins onereuse 



professionnels normalises (norme IBM 37^0); 
il devient possible, en utilisant cette 
norme, d'operer des transferts de fichiers 
d'un ord inateur d'une marque donneee a un 
ord inateur d'une autre marque. La societe 
frangaise Leanord a d'ailleurs pris une place 
preponderante, avec la gamme des SILDISC, sur 
le marche des disques souples 8 pouces pour 
Apple. L' inconvenient majeur de ces lecteurs 
reside dans leur cout, qui les reserve a une 
clientele prof essionnelle. 



On investit rapidement dans un second lecteur 
qui autorise un doublement de la capacite 



memoires de masse qui sont en general des * e controleur 
disques de plus grande capacite. Nous vous disposer de 2M 



est bien entendu de manipuler tel un jongleur ^epuis peu, des lecteurs de disques souples 
des disquettes 54 pouces sur un drive unique* 54 pouces de grande capacite sont proposes 

par IEF, une autre societe frangaise, Chacun 
de ces disques, travaillant en double face et 
en ligne et, surtout, facilite grandement les grande densite, peut stocker 1M octets, Le 
copies de disquettes, Au-dela, on passe aux controleur ^I E F supporte deux lecteurs, comme 

Apple, et permet done de 
octets en ligne. Ce lecteur 

presentons dans cet article les principales represente aujourd'hui le meilleur rapport 
memoires de masse disponibles sur le marche investissement/capacite, quel que soit le 
pour Apple ou equivalents Silex et ITT 2020. systeme d ' exploitation (SED) utilise. II 
Notre objectif est ici de presenter les exige cependant, et e'est comprehensible, 
principaux supports de stockage eprouves sur I'emploi de disquettes specialement 

le marche francais, plutot que de realiser un contr»lees. 

dossier complet sur 1 T ensemble des memoires ^ conclusion, les disques souples off rent 
de masse compatibles avec un Apple. l'avantage de 1 T interchangeabilite et de la 

On distingue habituellement deux types de transportability, en compensation de leur 
supports magnetiques de masse : d T un cote les capacite reduite par rapport a celle des 
disques souples (floppies) de grande disques durs. 



capacite, de 
Analysons les 
inconvenients de chaque solution 

Le dir.que souple (floppy) 



l'acftre les disques durs. 
principaux avantages et 



Pour commencer, le lecteur de disques souples 
de 54 pouces a l'avantage douteux d'etre le 
plus cher par K-octet, avec ses 140K en 
simple face, simple densite. Eh compensation, 

e'est, apres la cassette dont nous ne parlons P lus ba3 de to » 3 les s ^ ppor ^ s . magI ?!^ ique3 
meme pas tant son utilite est reduite, le 



Les disques durs (hard disks) 

De conception totalement differente, les 
disques durs ont une tres grande capacite de 
stockage, allant jusqu'aux 380M octets 
obtenus chez Micromos avec plusieurs disques 
durs de type Cynthia (fabrication Honeywell). 
Uh disque dur represente un investissement 
eleve, mais possede le cout par K-octet le 



Le premier disque 



materiel de lecture/ecriture de memoire de marcne A PP le fu t le 
masse (si l'on peut dire) dont le cout fixe octets, ^distribue en 
est le plus bas. 

Les lecteurs de disques souples 8 pouces, du 
fait de leur diametre plus important, 
acceptent une capacite de stockage plus 
grande, allant de 256K octets a 1M octet ( 1 
mega-octet= 1.000K), selon qu'il s'agit de 
lecteurs simple ou double face, et selon la 
densite d T enregistremen t . Bien que d T un cout 
relativement eleve, ce type de lecteur offre 
un compromis valable entre 1 ' investissement 
et la capacite de stockage. De plus, du fait 



de leur anteriorite sur le marcher etudie le probleme de la sauvegarde 
prof essionnel, les disques souples 8 pouces informations 
sont un standard portable des materiels possibilite 



dur disponible sur le 
celebre Corvus, de 10M 
France par Micrologie. 
II est partage en plusieurs volumes 
representant chacun un equivalent-disquette 
de sous DOS. Par contre, sous Pascal, il 

est capable de gerer des fichiers de toutes 
capacites. Dans sa gamme, Corvus propose 
aujourd'hui des disques durs de 5, 10 et 20M 
octets. 

Les utilisateurs d T un tel disque, scelle sous 
vide dans sa boite, ont tout de suite saisi 
le risque encouru en cas de destruction 
inopinee d'un gros fichier. Aussi a-t-on 

des 

sur un autre support, ttie 
consiste a recopier sur des 
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disquettes 5i pouces, mais il faut 67 
disquettes et beaucoup de patience pour 
eff ectuer une sauvegarde complete. Qi outre, 
si un fichier est de taille superieure a 
140K, il faut le decouper pour pouvoir le 
sauvegarder, ce qui ne simplifie pas 
l 1 operation- C'est pourquoi la sauvegarde sur 
magnetoscope est devenue la solution la plus 
frequente; de plus, le magnetoscope passe 
ainsi au titre des f rais prof essionnels . . , 

lie disque dur Cynthia, commercialise par IEF, 
Microexpansion, Micromos et MIS, est une 
solution elegante a ce probleme de 
sauvegarde. On dispose dans une meme unite 
d'un disque fixe de 10M octets, et d'un 
disque amovible de meme capacite. La 
sauvegarde s'effectuant sur une cartouche 
amovible, plus de probleme d'echange de 
fichiers ni de recopie de securite . 

Les disques durs disposent en outre d'un 
systeme de multiplexage qui permet de relier 
plusieurs Apples a un disque donne et de 
realiser ainsi des applications dans 



lesquelles plusieurs utilisateurs disposant 
chacun de leur poste de travail, accedent aux 
memes fichiers* 

Conclusion 

L 1 Apple III n'a rien apporte de neuf en 
matiere de disques souples. Par contre, 
1 T existence du Profile qui apporte 5M octets 
a un prix abordable prouve l 1 existence du 
besoin des utilisateurs en memoire de masse. 
On peut simplement regretter que rien n'ait 
ete prevu pour la sauvegarde des informations 
stockees sur le Profile: qui a envie de faire 
35 copies de disquettes consecutives, dans le 
pire des cas ? 

Oi peut penser aujourd'hui que le bon 
compromis reside dans la solution mixte 
souple+dur, avec sauvegarde du disque dur sur 
le disque souple, sous reserve que celui ait 
une capacite suffisante comme dans le cas du 
IM otets sur 5i pouces. D'autant que le 
disque dur peut etre relie a plusieurs Apples 
ou autres ordinateurs individuels. 



TABLEAU COMPARATIF DES PRINCIPALIS MEMOIRES DE MASSE POUR APPLE II-SILEX-ITT 2020 



Caracteristiques 


Sildisc 


Sildisc 


Floppy 


Corvus 


Galaxian 


Cynthia 




noQeie c 


nou e 1 e r 


TUT? 




1 ii n 




uonstructeurs 


Leanora 


Leanord 


T P W 


Micrologie 


Micro— 


nicromos 


ou distributeurs 










Exp.+ MIS 


♦ I.E*F. 


Capacite standard 


E1:2*256K 


F1:2*512K 


1M octets 


5-10-20 


2*10M 


2*10M 




E2:2*512K 


F2:2* IM 


2M octets 


M-octets 






Extensions possibles 


2e unite 


2e unite 


2e unite 


2e unite 


Non 


Non 


Systemes d 1 exploitation 














DOS 


Oui 


Oui 


Oui 


Oui 


Non 


Oui 


Pascal UCSD 


Oui 


Oui 


Oui 


Oui 


Non 


Oui 


CP/M 


Non 


Oui 


«0ui 


Oui 


Non 


NC 


M/DOS 


Non 


Oui 


Oui 


NC 


Oui 


Oui 


Support 


2*8" 


2*8" 


1M: 1*5"s 


Disque 


2 disques 


2 disques 








2M:2*5 ,r 4 


scelle 


fixe+amov 


fixe+amov 


Compatibilite IBM 


Non 


Oui 


Non 


Non 


Non 


Non 


Taux de transfert 


250Kbit/s 


500Kbit/s 


250Kbit/s 


m 


920Koct/s 


920Koct/s 


Sauvergarde 








Magnetos* 


Disque 


Disque 










Sy.miroir 


amovible 


amovible 


Dimensions l*L*h cms 


47.62.13 


32.55-31 


cf . Apple 


Selon type 


68.50.25 


68.50.25 


Poids 


15 kgs 


18 kgs 


idem 


idem 


45 kgs 


45 kgs 


Prix de base (H.T. ) 


E1: 16800F 


F1:25500F 


1M: 11000F 


36.000 F 


59-000 F 


59-000 F 




E2 23000F 


F2 29500F 


2M 19000F 




10M octets 




Prix/K-octets (H.T.) 


E1:32,62F 


Ft:24, 90F 


IM: 10, 74F 


3,6F 


2, 88F 


2,88F 




E2:22,46F 


F2: 14, 40F 


2M: 9,50F 








Nb Apples connectables 


1 


1 


1 


1 a 64 


1 a 4 


1-16+ 



r 



Reponse au concours 
de Pom's 



:>list 

20733 
2073-1 



20735 

20736 

20737 
20738 
20739 



CALL -936: TAB 19: VTAB 13 
DEVINETTE- ASCCPQMS")* PEEK 
(-1823)/ PEEK <-1595)*P0MS A 
POMS 

POKE PEEK (-7782) #12: POKE 

PEEK (-4710), 184 

POKE 2069, PEEK < RND <4096 

)) 

PRINT "POMS" 
POKE POMS f POMS 
POP 



Nous avons regroupe ici les explications de 
Dominique Devernay ( initialement condensees 
en quelques formules lapidaires, jetees sur 
le papier dans I'ivresse de la victoire), et 
celles de J.-F. Duvivier, beaucoup plus 
didactiques (a l'epoque de leur redaction, le 
pauvre J.F.D. croyait etre le seul a detenir 
la Verite . . . ) . 

* Ligne 20733 : Pas de mystere . 

* Ligne 2073^ : elle attribue a la variable 
DEVINETTE la valeur 215- Eh effet : 

i ASC(POMS) = ASC(P) = 208 

. PEEK(-1823) est une constante, car 

l'adresse -1823 se trouve dans le 

moniteur. De fait, PEEK(- 1823) = 1 ^ 
, PEEK!(-1595) = 139 (cf. ci-dessus) 
B La variable POMS est egale a 0, 

car elle n'a pas encore ete utilisee. 

Eh consequence, POMSaPOMS = OaO = 1 
. En resume, DEVINETTE = 208*144/139*1 ± 

215,48 = 215 (on est en INTEGER). 

* Ligne 20735 ! $E19A (-7782) et $ED9A 
(-4710) se trouvent en ROM et contiennent 
done des valeurs constantes (respectivement 
78 et 79)* Cette ligne peut done s'ecrire 
POKE 78, 12: POKE 79,184. Les adresses 78 et 79 
correspondent aux registres servant de 
"racines" pour le generateur de nombres 
aleatoires. Si RDKEY n 1 est pas appele entre 
temps, RND(4096) donne obligatoirement 2060, 
en raison des valeurs chargees dans les 
registres ( 12 et 184). 

* Ligne 20736 : en raison des explications 
ci-dessus, cette ligne equivaut a POKE 
2069tPEEK(2060) . Elle modifie la table des 
variables de l 1 INTEGER, situee a partir de 
l'adresse 2048 ($800). Plus precisement * 

2060 = adresse de l 1 octet de poids faible 
de la variable DEVINETTE 

2069 = adresse de l r octet de poids faible 
de la variable POMS. 




• ::: :':V':%---:V : V*:V:-:;:f : : 



Ceci revient done a POMSr DEVINETTE. 

* Ligne 20737 : sans commentaires. Mais 
attention, car nous en arrivons au point le 
plus delicat . 

* Ligne 20738 : depuis les manipulations 
sur les variables de la ligne 20736, la 
variable POMS vaut 215- Cette ligne effectue 
done un simple POKE 215,215 soit en 
hexadecimal POKE $D7,$D7- Pour en mesurer la 
portee, il est necessaire de connaitre un peu 
la structure d 'une ligne de programme INTEGER 
stockee en memoire . Chaque ligne est ainsi 
representee : 



T 

Nombre 
d 1 octets 



-Numero de 
la ligne 



t 

Token des 
instruct. 



Fin ligne 
($01) 



L'interpreteur BASIC INTEGER analyse la 
memoire octet par octet et execute les 
instructions. A chaque fin de ligne, 
c r est-a-dire chaque fois qu'il rencontre un 
$01, il sait que les trois octets suivants ne 
representent plus des instructions mais sont 
des informations sur la ligne suivante 
(longueur et numero). II positionne un "flag" 
(litteralement "drapeau" ) , situe en page zero 
a l 1 adresse $D7, lui permettant de savoir 
dans quelle configuration il se trouve. Si la 
valeur en $D7 est superieure a 128, 
l'interpreteur sait que les octets suivants 
sont des instructions; si elle est 
inf erieure, il sait que les trois octets 
suivants sont des "inf ormations de ligne". 

Lorsque 1 1 interpreteur a analyse la ligne 
20738, il a trouve un $01 signalant la fin de 
ligne et a done positionne $D7 a une valeur 
inf erieure a 128, II execute ensuite 
l r instruction decodee (le POKE 215,215) qui 
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fcjDPFE D'AXT'ICC 



de BASIC 



- SILZX 
C0URS 
APPLESOFT 



| r PALSCFT 



• ITT 2020 - APPLE 11 - APPH II 
ED FRA3CAIS i^iMM 



- APPLE II ( + Carte UTLS90PT } 
• APPLE II + 

- APPLS :u 

- KOPPi t'AATICQ t ♦ APPLE 9# FT eis ROi: ) 

- ITT 2021 < ♦ Carte FAl3»FT 

- SILK* f de Leanor<J ) 



1/ OQL'flS I I frASJC ) - Er. ..i, , 



'CD 



3os - Keacire ^ 46 K, ) 



, TR£3 PR0GRE5SIP - Ke eecoaelte •ucure cocjm iaearce prwl»U< tn 

Four dhtmtants et non debutant a, TOUT Y EST EXPllQUi, 
20 La^oni - Environ 10 a 12 Heures de ooura. 
Zxercices coanentrfe, expliRues, res«lua, ex*V.it#s. 
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remet justement $D7 a une valeur superieure a 
128. 

* Ligne 20739 - La ligne 20739 est stockee 
ermine suit en memoire : 
05-03-51-77-01, soit : 
05 : nombre d T octets de la ligne 
03-51 : represente 20739 en Hexa 
77 ; "token" pour 1 1 instruction POP 
01 : fin de ligne. 

Quand 1 r interpreteur en arrive a cette ligne 
20739, il trouve trois octets indiquant la 
longeur de la ligne et son numero, mais sur 
la foi de son "flag" $D7, il "croit" que ce 
sont des instructions. ligne 20739 est 

analysee comme suit : 
"token" pour SAVE (sur cassette) 
":" separateur d ' instructions 
"token" de 1 'instruction END 
: POP (ne provoque pas d ! erreur puisque 



done 
05 - 
03 = 
51 

77 = 

END a ete rencontre). 

Ainsi, apres le "POKE 215,21<§ , £, 1 1 Apple 
execute un SAVE sur la sortie cassette 
(responsable du temps d 1 arret observe ainsi 
que des deux T bip ! ) et un END. D'ailleurs, 
comme le fait remarquer D. Devernay, un POKE 
-271^2, 3 permet de lister cette derniere 
ligne bien malmenee : 

20738 POKE POMS, POMS :S AVE: END:P0P 

Rendez-vous maintenant pour les prochains 
concours, qui permettront peut-etre a D. 
Devernay d r assurer son approvisionnement en 
Pom's jusqu'a l'aube du troisieme millenaire! 



Creation de tables de formes 



La toute-puissante instruction DRAW du BASIC 
Applesoft permet, entre autres choses, la 
creation de caracteres de formes et de 
tailles tres diverses. Mais cette instruction 
est liee a l 1 existence de tables de formes 
(shape tables) un peu delicates a creer, 
comme on peut le constater en lisant le BASIC 
Programming Reference Manual, pages 92 a 95- 

Les deux programmes detailles ci-apres sont 
destines a faciliter la creation de ces 
tables. Le premier, CONSTRUIT, rend pratique 
le dessin de formes et le second, ASSEMBLE, 
assemble les formes construites en une table 
de formes selon la logique requise par 
Applesoft, La disquette Pom's contient les 
fichiers suivants, dont certains ne sont pas 
listes ici, faute de place : 



les limites de dimension de la grille) et la 
creation d'un tableau de vecteurs. L' analyse 
est eff ectuee de haut en bas et de gauche a 
droite pour les lignes impaires, et de droite 
a gauche pour les lignes paires. 

Afin d'eviter la generation de vecteurs 
inutiles, et pour economiser ainsi la place 
memoire, chaque ligne ne comportant que des 
vecteurs de deplacement horizontal (1 ou 3) 
est remplacee par un vecteur unique de 
deplacement vers le bas (2). Ceci est realise 
tant au'il n'v a oas eu de li^ne comportant 



Analyse du programme 



MENU ; oriente 1 'utilisateur entre les 190 
programmes de creation graphique 
„ TRANSFERT : autorise un transfer t rapide de 
graphismes 

, MINUS A, MINUSB, . .., MINUSZ : formes de 26 
minuscules 290 

TAB-MINUS : table regroupant les formes des 
26 minuscules 

ESSAYE : programme demontrant 1 'utilisation 
de TAB-MINUS pour entrer directement du texte 
en minuscules a l'ecran a partir du clavier . 



la programme CONSTRUIT 

Avec ce programme, il est aise de dessiner ou 
de corrjger a l'ecran une forme placee a 
l'interieur d f une grille dont les dimensions 
auront ete definies au prealable. Pour 
realiser le dessin, 7 touches du clavier sont 
utilisees come suit : 

H deplace le curseur vers le haut 

B deplace le curseur vers le bas 

— > deplace le curseur vers la droite 

deplace le curseur vers la gauche 

* ou : enregistre le point a la position 
du curseur 

espace efface le point a la position du 
curseur 

RETURN , . indique au programme la fin du 
dessin 

Le signe "*" dans la grille represente un 
point de la f jgure haute resolution finale- 
La pression sur la touche RETURN provoque 
l 1 analyse de chaque point de l'ecran (dans 



Utilise la routine 
1950. L2S est la 
pour le texte a 



a 280 

Texte de presentation . 
de cadrage situee en 
variable de travail 
cadrer 
a 350 

Demande la largeur LA% et la hauteur HA% 
du graphisme a traiter (maximum 24 points 
chacune). la touche RETURN appuyee deux 
fois consecutivement indique la fin de 
travail, traitee en 610. 



360 



routine expliquant 
touches du clavier en 



Appel de la 
l f utilisation des 
900. 
370 a 380 

Definition de la ljgne de grille qui sera 
affichee dans le cas de creation d'un 
graphisme • 



390 
400 



Debranchement vers la routine en 1480. 

a 420 

Affichage de la grille pour creation d'un 
graphisme. Boucle sur la hauteur HA% 
obtenue en 290-350. 
430 a 590 

Routine de saisie des informations 
passees par 1 'utilisateur, que ce soit en 
creation ou en mise a jour* I^es quatre 
operations de deplacement sont commandees 
par la fleche gauche (480-500), la lettre 
"B" (510), la lettre "H M (520) et la 
fleche droite (530). Les signes M#,t (540) 
et (550) marquent le signe Ir * fl a la 

position du curseur et deplacent d'une 
case vers la droite. La touche 
d'espacement (560) met la position du 
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curseur a blanc ( effacement ) et avarice le 
curseur . Le controle de la position du 
curseur en fonction des valeurs de HA% et 
LA% est realise dans la section 570-580. 
La touche RETURN (590) est utilisee pour 
identifier la fin de la saisie; on 
appelle alors la routine 1160, qui 
analyse l'ecran, le sauve sur disquette, 
et revient en 2*40 pour demander le 
prochain graphisme . 

600 

Retour a la lecture du clavier. 
610 a 740 

Routine de fin de travail, qui propose 
d'executer le programme ASSEMBLE ou de 
clore le traitement . 
750 a 890 

Trois routines pour emettre des bruits : 
note haute, note moyenne et note basse. 
900 a 1150 

Routine destinee a afficher le texte 
explicatif sur 1 utilisation des touches 
du clavier, L'affichage est limite a 
trois f ois durant l 1 execution du 
programme; tant pis pour ceux qui 
n ' auront pas encore compris . . - 
1170 a 1360 

La touche RETURN a ete enfoncee. Ce 
sous-programme analyse le contenu de 
l'ecran caractere par caractere, dans les 
limites de LA% et HA%. Eh 1180, l'indice 
K4 du tableau des vecteurs et 
l'indicateur IN du premier vecteur avec 
trace sont initialises. 



1220 : si la position de l'ecran comporte 
un T1 * T1 , stockage du vecteur 5, indicateur 
du premier vecteur avec trace trouve et 
saut vers la fin de boucle. 
1230 : dans le cas contraire, stockage du 
vecteur 1 et position de l'ecran a blanc. 
1250 : s f il n*y a pas de vecteur trace 
dans la ligne (INrO), retour arriere de 
LA%-1 dans le tableau des vecteurs, et 
mise a 2 du vecteur du 1er caractere de 
la ligne. 

1260 : dans le cas contraire, on ajoute 1 
au dernier vecteur pour forcer le 
deplacement vers le bas, et 1 a l T indice 
de la boucle sur les lj^nes afin de 
traiter la ligne suivante (ligne paire ) . 
1270 : si la fin de boucle est atteinte, 
attendre avant 1' analyse. 
1280-1330 ; comme 1200-1270, mais pour 
une ligne paire, done de droite a gauche. 
1350 : fin de la boucle des iignes, done 
de i r analyse de l'ecran. 

1355 : ajout de deux vecteurs a zero dans 
le tableau. 

1360 ; wait avant sauvegarde. 

L'utilisateur doit appuyer sur une touche 

pour en sortir. 
1370 a 1380 

Demande le nom du fichier disque qui 

recevra le tableau des vecteurs. 
1390 a 1470 

Sauvegarde du tableau des vecteurs, dont 

la structure est la suivante : un entier 



Def initivement , les minuscules accentuees 
avec la ^ ROM^LC" 





sur 
votre 




tipple 



Sans modification sur votre Apple*, 
vous pouvez avoir des caracteres 
MAJUSCULES, minuscules, avec /ambages 
descendant, accentues, graph., etc... La" ROM L.C." 
est compatible avec plus/ears Softwares: 
APPLEWRITER, MAGIC WINDOW, TEXT/ ED, etc... 

a La Boutique Noire, Centre Beaugrenelle. 
RueUnols 75015 Paris lei: 575.59.96 

Revendeurs, contactez-nous. 

* Pour Apple U phis Rev. 1 ou phis. 



donne le nombre de vecteurs du tableau; 
il y a ensuite un entier par vecteur. 
Retour au debut de programme en 240. 
1490 a 1630 

Demande s r il s^it d 1 une creation ou 
d^e mise a jour d } un tableau (fichier) 
de vecteurs existant. Retour en 400 pour 
une creation; la mise a jour debute en 
1650. 

1640 

Instructions de sortie du programme. 

1650 a 1850 

Routine de lecture des vecteurs et trace 
sur l'ecran en mode texte selon leur 
contenu. 

1860 a 1930 

Creation du tableau LI% donnant les 
adresses de debut de chaque ligne de la 
page 1 en mode texte (c r est vrai, 
j r aurais pu les calculer ...) 




Le programme ASSEMBLE 

Ce programme realise 1 'assemblage des formes 
qui dessinees, puis sauvees par CONSTRUIT. 

Apres avoir recu l r adresse memoire ou sera 
ecrite la table ($6000 est un bon choix; de 
toute fagon, une table de formes est 
"relocatable 7 '), et les noms des fichiers a 
prendre en compte, le programme ASSEMBLE lit 
ces derniers et cree une table de formes. A 
la fin de chaque fichier, la forme 
correspond ante est affichee en haute 
resolution . 

Eh fin de travail, la table de formes peut 
etre sauvee sur disquette. Son contenu est 
ensuite affiche a l'aide de 1 1 instruction 
DRAW. Le programme pousse enfin la 
gentillesse jusqu'a fournir a l'utilisateur 
les deux POKEs a introduire dans le programme 
appele a utiliser la table de formes. 

Remarque : il suffit de modifier les 
instructions du programme CONSTRUIT entre les 
numeros 480 et 530 pour remplacer les codes 
de deplacement selon les quatre directions 
cardinales par les codes traditionnels I> J, 
K et M* 

Tel qu T il est concu, ASSEMBLE est adapte a 
1 Assemblage de formes ayant ete creees sous 
un nom ayant une racine commune, la dernier e 
lettre seule identifiant les formes a 
assembler les unes aux autres. Quand on cree 
avec CONSTRUIT des formes destinees a etre 



assemblies, il faut alors prevoir de leur 
donner des noms adequats. Si l'on souhaite 
donner aux formes initiales des noms varies, 
il faut indiquer lors de l 1 assemblage une 
racine vide (on repond par un RETURN a 
blanc) . 

Analyse du programme 
100 a 160 

Creation du tableau destine a la 
conversion de l 1 adresse de chargement de 
la table. 

190 

Fonction modulo pour la conversion 
decimale-hexadecimale . 

200 a 260 

Entree du nombre de figures a assembler 
et des noms des fichiers source (SUB 
1470) . 
210 a 290 

Ehtree de 1' adresse memoire (hexa) ou 
doit etre chargee la table. 
300 a 330 

Construction du debut de la table en 
memoire : nombre de definitions et index 
de la premiere definition. 
340 a 380 

Calcul, mise en place et affichage de 
l r adresse de la table dans les positions 
connues d 'Applesoft (SE8 et SE9). 

400 

M = adresse de la premiere definition, et 
L = adresse ou sera ecrite la prochaine 
definition . 
430 a 530 

Boucle sur le nombre de figures : 
assemblage de la definition, calcul de 
l r adresse de chargement de la prochaine 
et affichage de la forme construite. 
550 a 605 

Sauvegarde (facultative) de la table sur 

disquette. L'adresse et la longueur sont 

af f ichees apres la sauvegarde . 
610 a 740 

Affichage du contenu de la table. 
770 a 860 

Conversion hexadecimal a decimal de 
l 1 adresse entree au clavier en 270. 

870 a 900 

Sous-programme de conversion. 

1230 a 1420 

Lecture et chargement d 1 ^ fichier 
source . 

1470 a 1580 

Ehtree des noms des fichiers sources a 
traiter . 

5000 a 5500 

Routine de creation des octets de la 
table a partir du tableau de valeurs 
entieres cree par CONSTRUIT. Toutes les 
valeurs lues, comprises entre et 7 
inclus, sont combinees pour former les 
octets de la table selon la logique de 
l r Applesoft . 

7000 a 7090 

Traitement de fin de programme. 
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HLOAD CONSTRUIT 
DLIST 

100 REM xiMiiixiiixiiixiiixixi 

X X 

* CREATION GRAPHISME * 

* HAUTE RESOLUTION * 
x x 
x 08 FEVRIER 82 x 
x x 

110 REM 

120 DIM TBXC600) 

13 REM DEF NUMEROS DE LIGNE 

110 GOSUB 1860 

150 SPEED= 255 

160 TEXT : HOME 

170 GOSUB 2080 

180 REM 

190 REM 

PROLOGUE 



420 
430 
440 



20 L2* = "VOUS DESIREZ CREER UN 

DESSIN EN" 
210 VT = 2! GOSUB 1950 
220 L2* = "H A U T E RESOL 

U T I O N" 
230 VT - 4i INVERSE : GOSUB 1950: 
NORMAL 

240 L2* = "ENTREZ LA LARGEUR ET L 

A HAUTEUR" 
250 VT = 8: GOSUB 1950 
260 L2* = "SOUS LA FORME i LL,HH 

II 

270 VT = 10! GOSUB 1950 

28 L2$ = " ( VALEURS MAXI RESPECTI 

VES = 24 ET 24 > 
290 VT = 125 GOSUB 1950 
295 VTAB 21 i PRINT " (2 FOIS 

RETURN POUR TERMINFK) 

II 

300 VTAB VT t 35 HTAB 16 
310 INPUT "=>"; LARGE*, HAUT* 
320 IF LEN (LARGE*) = THEN 
GOTO 610 

330 IF VAL (LARGE*) < 1 OR VAL 
(LARGE*) > 24 THEN GOSUB 75 
0: GOSUB 800: GOTO 160 

340 IF VAL (HAUT*) < 1 OR VAL 
(HAUT*) > 24 THEN GOSUB 750 
! GOSUB 800J GOTO 160 

35 LAX = VAL (LARGE* ) SHAX = VAL 
(HAUT*) 

360 GOSUB 900 : REM EXPLIC, 
37 REM 

380 LI* = LEFT* (" 

",LAX> 

390 HOME : GOTO 1480 

40 FOR NL = 1 TO HAX 

410 VTAB NLt HTAB IS PRINT LI*} 



450 
460 
47 
480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

60 
610 



62 
630 
640 

650 

660 
670 

68 
690 
700 

710 
720 
73 
740 
750 
760 
770 



NEXT NL 
REM 

x x 
x REMPLISSAGE x 
x x 

LET VT - 1 5HT = 1 
VTAB VT: HTAB HT 
GET RP* 

IF ASC (RP*) = 8 AND HT > 1 
THEN HT ■ HT - 11 GOTO 460 

IF ASC (RP*) « 8 AND HT = 1 
AND VT = 1 THEN GOTO 460 

IF ASC (RP*) = 8 AND HT = 1 
THEN VT = VT - IS GOTO 460 

IF ASC (RP*) = 66 THEN VT = 

VT + 1 

IF ASC (RP*) = 72 AND VT > 
1 THEN VT « VT - 1 
IF ASC (RP*) = 21 THEN HT * 
HT + 1 

IF RP* - "x" THEN PRINT RP* 
> SHT = HT + 1 

IF RP* * "S" THEN PRINT "i" 
S SHT = HT + 1 
IF RP* = " " OR RP* = "♦" 
THEN PRINT RP*} SHT = HT ♦ 1 
IF HT > LAX THEN HT = 1SVT = 
VT + 1 

IF VT > HAX THEN VT = 1SHT - 
IS GOTO 460 

IF ASC (RP*) = 13 THEN 
GOSUB 1160S HOME S GOTO 240 
GOTO 460 

REM xxxxxxxxxxxxxxxxxxxx 

X * 

x FIN DE TRAVAIL x 

X * 

xxxxxxxxxxxxxxxxxxxx 

HOME 
VT - 10 

VTAB 7S PRINT " ENTREZ S " 

L2* = "1 SI VOUS VOULEZ ESS 

AYER LES DESSINS" 

GOSUB 1950 
VT = 12SL2* * "2 SI VOUS VO 

ULEZ TOUT ARRETER 

GOSUB 1950 

VTAB 16S GET ZZ* 

IF ZZ* « ,, 2" THEN GOTO 1640 

IF ZZ* < > "1" THEN 620 
D* - CHR* (4)S PRINT 
PRINT D*S"RUN ASSEMBLE" 
END 

REM <««NOTE HAUTE»»> 
POKE 769,30 
POKE 768,80 



22 



Pom's n a 4 



780 CALL 770 

790 RETURN 

800 REM ««<NOTE MOYENNE»>» 

810 POKE 769,30 

820 POKE 768,130 

830 CALL 770 

810 RETURN 

850 REM ««<NOTE BASSE»»> 

860 POKE 769,30 

870 POKE 768,180 

880 CALL 770 

890 RETURN 

900 REM 

910 REM XXXXMXXXIXXXXXXXXMMXX 
X X 

x TOUCHES FONCTIONS x 

X X 

92 REM 

930 SX = SX + 11 IF SX > 3 THEN 

RETURN 940 HOME 
950 FLASH : VTAB 21 F'RINT "ATTEN 
TION !" 

960 normal :vt = 5:l2* « "notez 
bien l 'utilisation des touch 
es ;■• 

970 GDSUB 1950 
980 VTAB 8 

990 PRINT "-> (FL.DROITE) 

CURSEUR A DROITE"? 
1000 VTAB 10 

1010 PRINT "<- (FL. GAUCHE) 

CURSEUR A GAUCHE"; 
1020 VTAB 12 

1030 PRINT "H (LETTRE H> 

CURSEUR EN HAUT " J 
1040 VTAB 14 

1050 PRINT "B (LETTRE B) ■ 

CURSEUR EN BAS "J 
1060 VTAB 16 

1070 PRINT ": <2 POINTS) 

POSITION REMPLIE" i 
1080 VTAB 18 

1090 PRINT "ESPACE OU 'X' 

POSITION BLANCHE" J 
110 VT = 20 

1110 L2* = "<RETURN> QUAND C'EST 

FINI.": GOSUB 1950 
1120 VTAJB 24 

1130 HTAB 32t PRINT ,1 <RETURN>'* i 
1140 GET ZS 
1150 RETURN 
1160 REM 

1170 REM xxxxxxxxxxxxxxxxxxxx 

X X 

x ANALYSE D'ECRAN x 

X X 

1180 LET K4 = 0JIN = 
1190 FOR A = 1 TO HA% 



12 
1210 
1220 



1230 

1240 
1250 



1260 

1270 
1280 

1290 
130 



1310 

1320 
1330 
1350 
1355 

1360 
1370 

1380 

1385 
1390 
1400 
1410 
1420 
H30 
144 
1450 
1460 
1470 
1480 
1490 



- TBX(K4) + ItA - A + 



HA% THEN 
= (LAX - 



1355 
1> TO 



STEP 



+ CA) - 17 
7: IN = 1,5 

(LIX(A) + 



FOR CA = TO (LAX - 1) 

LET K4 * K4 + 1 

IF PEEK (LIX(A) + CA) ■ 17 
THEN TBX(K4) = 51IN - 1! 

GOTO 1240 
TBX(K4> = i: POKE (LIX(A) + 
CA) ,160 

NEXT CA 

IF IN ■ THEN K4 = K4 - (L 
AX - 1):TBX(K4) = 2: GOTO 13 
50 

TBX(K4) 
1 

IF A > 
FOR CA 
- 1 

LET K4 = K4 + 1 

IF PEEK (LIX(A> 

THEN TBX(K4) = 

GOTO 1320 
TBX(K4) - 3: POKE 
CA) ,160 

NEXT CA 
TBX(K4) - TBX(K4) - 1 

NEXT A 
K4 - K4 + i:TBX(K4) ■ 
K4 + 1JTBX(K4) - 

GET RP* 

HOME tVT = 125L2* ■ "NOM 
FICHIER : n : GOSUB 1950 
VTAB 14: HTAB 15: INPUT 
NM$ 

IF NMi = THEN 240 
Di ■ CHRi (4) 
PRINT Di?"OPEN ";NM$ 
PRINT DS i "WRITE " ♦ NM* 
LET K4X - K4t PRINT K4X 
FOR A * 1 TO K4X 
PRINT TBX(A) 
NEXT A 

PRINT Di i "CLOSE " J NMi 
HOME : GOTO 240 
REM 

REM 

CREE OU MET A JOUR 



0:K4 = 



DU 



1500 HOME tVT = 12 
1510 VT ■ 12 

1520 L2* - "CREATION OU MISE A JO 
UR ?" 

1530 GOSUB 1950: VTAB 14t HTAB 1 
7 

1540 GET 1% 

1550 IF Z* = "C" THEN HOME : 

GOTO 400 
1560 IF Zi < > " M" THEN 1500 
1570 HOME tVT - 12 
1580 L2* = "NOM DU FICHIER ?": 

GOSUB 1950 
1590 VTAB 14: HTAB 16: INPUT ""} 
NM$ 



r 



1595 
1600 

1610 
1620 
1630 

16-10 



1650 



1660 
1670 
1680 
1690 
1700 
1710 

1720 

1730 
17-10 



1750 
1760 



1770 
1780 
1790 
180 



1810 
1820 



1830 
18-10 



1850 
1860 
1870 
1880 
1890 



19 
1910 
1920 
193 
19-10 



IF NM* = "" THEN 1500 
HOME J VTAB 23J HTAB 381 
PRINT »»; 
D* = CHR* (4) 
GOTO 1650 

HOME :i_2$ = "A BIENTOT ..." 
JVT = 12J GOSUB 19501 VTAB 2 
4: END 

REM 

MISE A JOUR DE GRAF 



PRINT D*J 
PRINT D*l 
INPUT K4X 
LET CA = 
FOR X = 1 
INPUT TBX 

1770 
IF TBX > 

LI) + CA), 
POKE (LIX 
ON ( TBX + 

,1820,18-10 

-10 
STOP 

LI * LI - 
GOSUB 750 



"OPEN " i NM* 
"READ " » NM* 

0JLI = 1 

TO K4X 
5 IF TBX - THEN 

3 THEN POKE (LIX( 
1705 GOTO 1740 
(LI) + CA),17-1 

1) GOTO 1760,1800 
, 1760,1800,1820,18 



15 IF LI < 1 THEN 
: GOSUB 750 : LI = 1 



IF LI > HAX + 1 
B50: GOSUB bso: 



1052: CALL 



THEN 
1052: 



CALL 
CA = 
GOTO 1770 
REM 

REM NUMEROS DES LIGNES 
REM 

DATA 102-1,1152,1280,1-108,15 
36, 1664, 1792,1920, 1064,1192, 
132 0,1448,1576,1704,1832, 196 
0,1104,1232,1360, 1488,1616,1 
744,1872,2000 

DIM LIX(24) 

FOR LI = 1 TO 24 

READ LIX(LI) 

NEXT LI 

RETURN 



1950 REM ******************* 
x x 
* CENTRAGE DE L2* x 



1960 



x x 
xxxxxxxxxxxxxxxxxxx^^^ 



LET 
MEM 

1970 IF LEN <L2*) > 39 THEN 
PRINT "TROP LONG ..." 
1980 HTX = (40 - LEN (L2*)) / 
1990 REM FIN CENTRAGE TITRE 
2000 VTAB VTJ REM FOURNI 
2010 HTAB HTX: REM CALCULE 
2020 PRINT L2*: NORMAL 
2030 RETURN 

2040 FLASH : PRINT "LONGUEUR 
> 40" 

PRINT L2*: NORMAL : STOP 



L2* 



2050 
2060 



FLASH 5 PRINT "HTAB = 



HTX 



NEXT X 

PRINT D*J "CLOSE " }NM* 

GOTO 430 
CA = CA + U IF CA > LAX THEN 

GOSUB 80 0: GOSUB 80 0:CA = L 
AX - 1 

GOTO 1770 
LI = LI + 15 

THEN GOSUB 
LI = HAX + 1 

GOTO 1770 
CA - CA - i: IF CA < 



2070 GOTO 2050 
2080 REM 

2083 REM ROUTINE SON 
2085 REM 

2090 POKE 770,173: POKE 771,48: POKE 
772,192: POKE 773,136: POKE 
774,208: POKE 775,5: POKE 77 
6,206: POKE 777, 1J POKE 778, 
3: POKE 779,2405 POKE 780, 9J 
POKE 781,202 
2100 POKE 782,208: POKE 783,245: 

POKE 784,174: POKE 785, 0: POKE 
786,3: POKE 787,76: POKE 788 
,2: POKE 789,3: POKE 790,96: 
POKE 791, 05 POKE 792,0 
RETURN 
ASSEMBLE 



2110 
3LOAD 
DLIST 



10 LOMEM: 16384 

g^^^ J^l j^j y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ 

X X 

x TABLE DE FORMES x 
x x 



19 
20 
40 
50 
55 
60 

70 

90 

100 

110 

120 

130 



SCALE= 1 

DIM TPX(600) 

TEXT : POKE 34,0 

HOME : VTAB 15 HTAB 12 

INVERSE 

PRINT " ASSEMBLAGE "i 



NORMAL 



POKE 34,2 
REM 
REM 

DIM HEX* (16, 2) 
FOR I = 1 TO 16 
FOR J = 1 TO 2 



24 



140 
ISO 
160 
190 



200 
210 



220 
230 

24 
245 
250 
260 
270 
280 
290 
300 
310 
320 
330 

340 
350 
355 



360 

370 

390 

390 
400 

410 
420 



READ HEX* ( I , J ) 
NEXT J 
NEXT I 

DEF FN MOD(A) = INT ((A / 
256 - INT (A / 256) > * 256 
♦05) x SGN (A / 256) 
REM 

x x 

* OEBUT DU PROGRAMMEx 
x x 

VTAB 4: CALL - 958 

INPUT "COMBIBN OE FIGURES A 

ASSEMBLER ? "?L* 

LET NN = VAL ( L* ) 



430 
440 
47 
50 

510 



520 
523 
524 
530 



540 
550 
560 



57 

580 
590 

60 



IF NN 
GOSUB 
PRINT 
INPUT 
GOSUB 
LET L 
POKE 



< 1 THEN 
1470 



GOTO 7000 



"ADRESSE HEXA = "JL* 
770 : PRINT 

= VAL (Li) : REM ADDR 

l,nn: poke <l + d,o 



LET LL = 4 + (NN - 1) x 2 
GOSUB 870 

POKE (L + 2),L2: POKE (L + 3 
),L1 

LET LL = L: GOSUB 870 
POKE 232, L2: POKE 233, LI 
HOME : PRINT : PRINT : HTAB 
5! PRINT "AJOUTEZ DANS VOTRE 

PROGRAMME 5 " J PRINT 
PRINT : PRINT TAB( 08): 
INVERSE 

PRINT "POKE 232,";L2J n : POKE 

233, "JLl 
NORMAL : PRINT :M = FRE (0) 

GET A*! PRINT i HGR 

LET M=L:L=L+2+NNx2 

VTAB 21 

x x 

* DEBUT DE LA BOUCLE* 
x x 
xxxxxxxxxxxxxxxxxxxxx 

FOR Nl = 1 TO NN 
GOSUB 1230 
GOSUB 5000 

PRINT "FIN DE LA FIGURE "JN1 
: POKE L,0 

IF Nl < > NN THEN MM = M + 
2 + Nl x 2:LL » L - M + i: 
GOSUB 87 0: POKE MM,L2 * POKE 
(MM + 1>,L1 
LET L = L + 1 
HGR 

DRAW Nl AT 140, B0 
NEXT Nl 



605 
610 
620 



630 

660 
67 
680 
690 
700 
720 

730 
732 
740 
760 
77.0 

7B0 
790 

80 
810 

820 
830 

840 
850 
860 
870 
880 



890 
90 



HOME ! VTAB 21 
REM 

x x 

x SAUVEGARDE TABLE x 
x x 

PRINT "VOULEZ-VOUS SAUVER LA 

TABLE ? " 
GET A* 

IF A$ < > "O" AND A* < > " 
N" THEN 540 
IF A* = "0" THEN 

L NOM ? m ;n*:n* = 

N* + ",A" + STR* 
+ STR* (L - M)t 



INPUT "QUE 
"BSAVE" + 
(M) + ",L" 
PRINT ! PRINT 



CHR* (4)JN* 
PRINT N* J GET A* 
REM 

x x 

x ESSAI FIGURES x 
x x 

H0ME** X VTAB X 21**PRINT*"ESSAI 

OES FIGURES . " » 
HGR : HCOLOR= 3 
ROT= 0:X2 = 0!Y2 = 20 
INPUT " LARGEUR = "J LA 
FOR Nl = 1 TO NN 
DRAW Nl AT X2,Y2 
X2 = X2 + LA: IF X2 > 260 THEN 
X2 = 0:Y2 = Y2 + 14 
Nl 



NEXT 
POKE 
GOTO 
REM 
REM - 



34, 
7000 



CONVERSION ADRESSE 

FOR K = 1 TO LEN ~(L*) 

LET J* = MIO* (L*, LEN (L*) 

- K + 1,1) 
FOR I = 1 TO 16 
IF J* = HEX*(I,1) THEN J = 
(HEX*(I,2)): GOTO B30 
NEXT I 

LET M = M + 16 A (K - 1) x J 



VAL 



NEXT K 
LET L* = 
RETURN 
REM 

REM 

CONV 



STR* (M) 



DEC— >HEX (POKE) 



LET LI = INT 

FN MOD (LL) 
RETURN 



(LL / 256KL2 = 



1230 



1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1105 
1406 
1407 
1410 
1420 
147 
1480 



1490 
1500 

1505 



1510 
1520 
1530 
1540 



x x 

* LECTURE AUTOMAT* x 
x x 

LET NM* ■ NM*(N1) 
LET D* » CHR* (4) 
PRINT D**"OPEN " »NM$ 
PRINT D*J "READ " J NM* 
INPUT C2% 
FOR CI = 1 TO C2% 
INPUT TPX(Cl) 
NEXT CI 

PRINT D*J"CLOSE " i NM* 
LET TPX(Cl) = 
LET TPX(C1 + 1> = 
LET TPX(C1 + 2) ■ 
LET TPX(C1 + 3) = 
CI = 1 
RETURN 
REM 

x x 
x LECTURE DES NOMS x 
x DES FICH, SOURCES x 
x x 

DIM 

HOME t INPUT "PREFIXE : " I P 
F* 

IF LEN (PF*) - THEN LE = 
I! VTAB 24! HTAB 31! PRINT " 
RETURN"! VTAB 5! HTAB VI GOTO 
1520 

LET LE ■ 2 

FOR NM = 1 TO NN 

PRINT "NOM "JNMJ" "JPF*; 

IF LE = 1 THEN INPUT "" »NM 



5070 
5080 
5190 
5100 
5110 
5120 
513 
5140 
5150 
5160 

5170 
5180 

5190 
520 
5210 
5220 
5230 

5240 
5250 
5260 
5270 
5280 

5290 
530 
5310 



532 
5330 
534 
5360 

5370 
5375 



1550 IF LE - 2 THEN GET NM* : PRINT 
NM* 

1560 NM* (NM) - PF* + NM* 
1570 NEXT NM 
1580 RETURN 

5000 REM xxxxxxxxxxxxxxxxxxxxx 

X X 

x TABLE DE FORMES x 
x x 



5010 
5020 



5025 

5040 

5050 
5060 



NB = i: REM NUMERO VECTEUR 
REM 

LECTURE/CODIFICATION 

VE* = STR* <TPX(C1>):C1 - C 
1 + 1 

IF VE* < "0" OR VE* > "7" THEN 
5020 

VE(NB) - VAL (VE*) 
ON NB GOTO 5080,5140,5210 



5380 
5500 
610 



7000 
7005 
7010 
7020 

7030 
704 

7050 
7060 

7070 
7075 
7080 
7090 



REM 

REM 1ER VECTEUR 
REM 

VEX(l) = VE(1) 

NB = NB + i:VE(l) = 

GOTO 5020 

REM 

REM 2EME VECTEUR 
REM 

VEX(2) = VEX(l) + (VE(2) x 8 
) 

IF VEX(2) - THEN 5330 
NB * NB + i:VE(l) = 0:VEX(1) 
= 

GOTO 5020 
REM 

REM 3EME VECTEUR 
REM 

IF VE(3) < > AND VE(3) < 
4 THEN 5280 

VE(1) - VE(3):VE(3) = 
POKE L,VEX(2KL = L + 1 

NB = 1 
GOTO 5060 

VEX(3) = VEX(2) + (VE(3) x 6 

4) 

IF VEX(3) = THEN 5330 
POKE L,VEX(3)tL = L + 1 
NB = i:VEX(3) = 0:VEX(2) = 

:vex(d = o:ve(d - o:ve(2) = 

0!VE(3) = 0: GOTO 5020 
REM 

REM FIN DE FORME 
REM 

REM VEX(3) CONTIENT VECTEUR 

POKE L,VEX(3)tL - L + 1 
POKE L,0! POKE L + 1,0! POKE 

L + 2,0: POKE L + 3,0!L = L + 

1 

RETURN 
REM xxxxx 

DATA 0,0,1,1,2,2,3,3,4,4, 
5, 5, 6, 6, 7, 7, 8, 8, 9, 9, A, 10, B,l 
1,C,12,D,13,E,14,F,15 

REM 

REM 

HOME 1 VTAB 21 

PRINT " 1 POUR CONSTRUIRE 

II 

VTAB 23 

PRINT " 2 POUR ARRETER " 

» 

GET Z* 

IF Z* - "2" THEN HOME : END 



HOME t PRINT 

IF Z* < > "1" THEN 7010 
D* » CHR* (4) 
PRINT D*}"RUN CONSTRUIT" 



ULDAD ESSAYE 
DLIST 

300 HOME : HGR2 X HCOLOR= 3 

320 PRINT CHR* ( 4 ) J "BLOAD TAB-M 

INUS,A*6000" 
330 POKE 232, 0: POKE 233,96: RDT= 

o: SCALE= 1 
340 L2* = "QUANO CE TEXTE SERA EF 



20 INVERSE : PRINT "PHEBUS";: 

normal: print " vous propose :" 

30 VTAB 8: GOSUB 200: VTAB 8: 

CALL - 958 
40 PRINT "1 CONSTRUIT POUR CR 

EER VOS GRAPHISMES" i 
50 VTAB 11 

60 PRINT "2 ASSEMBLE POUR LE 
S ASSEMBLER (DRAW) 11 ; 



FACE VOUS POURREZ ENTRER": GOSUB70 VTAB 20 





2000 


90 


PRINT " (ENTREZ LE NUMERO D 


350 L2* = "DES CARACTERES ALPHABE 




E VOTRE CHOIX) "J 






TIQUES AU CLAVIER" : GOSUB 20 


100 


GET Z*: PRINT 






00 


110 


IF Z* = "1" THEN PRINT 


DiJ" 


360 L 


.2* - CHR* (13): GOSUB 2000 




RUN CONSTRUIT" 




370 L2* = CHR* (13): GOSUB 2000 


120 


IF Zi = "2" THEN PRINT 


DiJ " 


380 L 


2* = " JE NE DISPOSE PAS ENC 




RUN ASSEMBLE" 






ORE DES CHIFFRES NI DES": GOSUB 130 


PRINT DiJ "CATALOG " 






2000 


140 


GET Z$ 




390 L 


2* - "CARACTERES MINUSCULES 


150 


GOTO 10 






ACCENTUES MAIS IL PEUT": GOSUB200 


REM 






2000 


240 


PRINT " 4 PROGRAMMES 




400 L2* = "ETRE INTERESSANT DE LE 




II 






S CREER AVEC CONSTRUIT ": GOSUB 250 


VTAB 11 






2000 


260 


PRINT " CONSTRUIT POUR 


SAIS 


410 


FOR WAI = 1 TO 5000: NEXT WA 




IR DES GRAPHISMES " 






I 


270 


PRINT 




420 


hgr2 :x = o:y = 


280 


PRINT " ASSEMBLE POUR 


CREE 


430 L2* = "" 




R UNE SHAPE TABLE " 




440 


GET L2* 


290 


PRINT 




450 


GOSUB 2000 


300 


PRINT " ESSAYE POUR 


ESSA 


460 


GOTO 440 




YER UNE TABLE 




1999 


END 


310 


PRINT 




2000 


REM 


320 


PRINT " TRANSFERT POUR 


COPI 


2020 


FOR A = 1 TO LEN (L2*) 




ER DES SOURCES SUR" 




2030 


N = ( ASC ( MID* (L2*,A,1))) 


325 


PRINT 








330 


PRINT " 


U 


2040 


IF N = 13 THEN 2230 




NE AUTRE DISQUETTE" 




2050 


IF N = 32 THEN X = X + 6: GOTO 


350 


VTAB 23 






2200 


360 


PRINT " 




2060 


IF N - 64 > 26 OR N - 64 < 




<RETURN>" i 






1 THEN CALL - 1052: CALL - 


370 


GET Z*: PRINT 






1052: RETURN 


400 


RETURN 




2070 


DRAW N - 64 AT X,Y 


60000 REM 




2080 


X = X + 6 


60002 REM CREE LE 20/02/81 




220 


IF X > 273 THEN X = 0:Y = Y 


60004 REM 






+ 9 


60006 REM DATES DE MISE A JOUR 


2210 


IF Y > 183 THEN TEXT : HOME 


60010 REM 






: END 


60012 REM 15/03/82 




2220 


NEXT A 


60014 REM 18/03/82 




2225 


IF LEN (L2*) = l THEN RETURN 


3LOAD TRANSFERT 





2230 x=o:y=y+9:ify>i83 then 

TEXT : HOME : END 
2250 RETURN 

3LOAD MENU 
DLIST 



DLIST 



10 HOME 



VTAB 3:0* = CHR* (4) 



10 



* x 
x TRANSFERT SOURCES * 
x x 
x CONSTRUIT x 

xxxxxxx xxxxxxx 
SPEED= 255: TEXT 
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27 



20 

99 

100 

110 

115 

130 

180 



289 
290 
291 
300 
310 

315 
320 

330 
332 
335 
310 

343 
315 
350 
370 
380 
390 
10 
110 
120 
130 
110 
115 
150 
160 

170 
1B0 
190 

650 
660 



66Q 
670 
69 
700 
710 
720 
790 
800 

810 
810 

860 

28 



POKE 33,10 

REM ===================== 

HOME J VTAB 12 J INVERSE 
L2$ = "TRANSFERT GRAPHISMES" 

HTAB (10 - LEN (L2*> ) / 2J PRINT 

L2$ 

FOR WAI = 1 TO 1300; NEXT WA 
I 

NORMAL { VTAB 15 J HTAB 10 J INPUT 
"COMBIEN ? "JCXXJ DIM NM*(CX 
X>,NB(CXX> 
REM 

REM 
HOME 

INPUT "LONGUEUR, HAUTEUR (MAX 

I) "JLOX,HAX 

PRINT 

NN = LOX x HAXJNN = NN * CXXJ 
PRINT "DIM = "JNNJ GET A* 

DIM TBX(NN) 

PRINT 
D* = CHR* (1) 

PRINT CXXJ" NOMS J " J FOR T = 

1 TO CXXJ INPUT NM$(T)J NEXT T 

PRINT 

RL = 1J REM ENTREE DANS TBX 
FOR IN = 1 TO CXX 
PRINT D*J"OPEN "JNM$(IN> 
PRINT D* J "READ "JNM*(IN> 
INPUT NB(IN> 
FOR Z = 1 TO NB(IN> 
INPUT TBX(RL) JRL = RL + 1 
NEXT Z 

PRINT D$ J "CLOSE "NM$(IN> 

NEXT IN 

PRINT 

FOR T * 1 TO CXX 

PRINT NM*(T)J" A "JNB(T>J" E 

NTREES." 

NEXT T 

PRINT 

PRINT "CHANGEZ LA DISQUETTE 
PUIS <RETURN> "J J GET A* 
REM 

x x 
x SAUVE LE TABLEAU x 
x x 

RL = 1JD* = CHR* (1>J PRINT 
FOR IN = 1 TO CXX 
PRINT D$J"OPEN "JNM*(IN> 
D*J"WRITE "JNM$(IN> 
NB(IN) 

= 1 TO NB(IN) 
TBX(RL) JRL = RL + 1 



PRINT 
PRINT 
FOR I 
PRINT 
NEXT I 
PRINT D*J 



NEXT 
END 



IN 



CLOSE "JNM*(IN> 



TAB-MINUS 
60(£!0- 1(4 00 36 00 4B 00 
6008- 69 0Ci 7C 09 8D 00 
6010- HF 00 CI 00 03 00 
6018- F6 00 09 01 3 9 01 
6020- 39 01 49 01 59 01 
6028- ?8 01 8P 01 9fi 01 
6030- Bfi 01 Cfi 01 DH 01 
6038- 15 OF 53 2D 35 DF 
6040- F5 DB 02 00 90 00 
6048- DB 2E 2D 15 DF 33 
6050- DF 33 2D HO DB 13 
6058- 00 52 2D 15 DF 33 
6060- DF 73 2D D5 DB 02 
6068- 00 49 31 DF 53 2D 
6078- 33 4D 31 DF 73 2D 
6078- 02 00 t0 00 52 2D 
6080- 33 2D 2D DE tB 0E 
6088- DB 02 00 00 00 29 
6090- 33 4D Dl 3B 37 4D 
6098- 6E 89 DB 13 00 00 
6000- 20 35 DF 33 4D 31 
60M6- 49 Fl 3F 17 00 80 
60B0- 01 OB 6E 89 3B 3F 
6068- HE IB 6E 09 DE 9B 
60C0- 00 09 8D DB 53 6D 
60C8- 09 80 IB 9F 29 HO 
60061- 00 00 00 4S 05 OB 
6008- FB 53 09 05 CF 6H 
60E0- BF 00 00 00 69 Dl 
60E8- 40 1H IF 57 6D lw 
60F0- 40 DE 3B 00 00 00 
60F8- IB 9F 09 80 IB 9F 
6100- IB 9F 29 HO OB 13 
6108- 00 52 00 15 If IF 
6110- FE IF 6E 00 DE 9B 
6118- 00 12 0D HO DF 37 
6120- OF 33 40 Fl DB 02 
6128- 80 52 2D 15 DF 33 
6130- DF 73 2D 05 DB 02 
6138- 00 12 20 HO DF 33 
6140- 3F 37 40 01 DB 06 
6148- 00 52 2D 35 DF 33 
6150- 3F BF 49 31 DF 13 
6158- 00 12 0D HO DF 37 
6160- DB 6E 89 DB 13 00 
6168- 52 2D F5 DB 0E 2D 
6170- 13 20 HO OB 13 00 
6178- 69 01 IB 17 2D HO 
6180- 4D lfi IF 57 69 OH 
6188- 00 00 12 40 31 DF 
6190- 31 DF 73 2D F5 DB 
6198- 00 00 12 4D 31 DF 
61H0- Fl IF 57 69 Dfi 9B 
61H8- 00 12 40 31 OF 33 
61B0- FE IF 0E 00 05 DB 
61B8- 00 00 12 4D Fl IF 
61C0- lfi IF 17 40 Fl DB 
61C8- 00 00 12 40 31 DF 
6100- 35 OF 53 49 IE 3F 
6108- 00 00 12 20 2D IE 
61E0- 80 08 17 20 20 CE 
61E8- 00 00 FF FF 



59 0fl 

9F 00 

F.4 00 

29 01 
68 01 
H9 01 
52 20 
73 20 
40 Dl 
4D 31 

00 00 

40 11 

00 m 

35 OF 
F5 OB 
15 OF 
20 05 
80 FB 
Dl DB 
00 52 
3F BF 
00 4D 
6E 09 

00 00 

OH 9F 
DB 13 
4* HO 

H9 IB 
IB 57 

IF 57 
29 80 
09 80 

00 00 

6t m 

80 08 
4D 31 
80 00 

40 31 

00 00 

40 Fl 

00 00 

40 31 

00 00 

4D 01 

00 00 

15 DF 

00 00 

DB 57 
9B 00 
33 40 

02 00 

33 40 

00 00 
00 00 
02 00 

57 69 

02 00 

73 20 
17 00 
DF 4H 
9B 00 
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La carte M/DOS 6502 a l'essai 



Nous en avions l 1 intention depuis longtemps, 
a force d 1 en entendre parler ; nous avons 
enfin pu essayer la carte M/DOS 6502 
fabriquee par Micro Inf ormatique Service 
(MIS), a Nice. 

Vendue au prix public de 2.800 F HT, la carte 
M/DOS 6502 est compatible Apple, ITT 2020, 
Silex et systemes integres IEF. Ses 
caracteristiques principales sont les 
suivantes : 

, 16K supplementaires de memoire centrale; 
i un systeme d Exploitation de disquettes 

(SED) puissant; 
i une gestion par masques des entrees et des 

sorties ; 

. precision numerique de 48 chiffres signi- 

ficatifs en traitement particulier; 
« adaptability a toutes les cartes 80 colon- 

nes compatibles Apple/ITT 2020; 
s compatibility des programmes de 1 10K a 40 

mega-octets; 
, jusqu T a 16 mega-octets peuvent etre geres 

d'un seul tenant. 
La conception originale du SED et la gestion 
par masques des entrees et des sorties 
permettent de gagner beaucoup de temps dans 
la realisation d T un programme* Nous l 1 avons 
constate par nous-memes en mettant des 
programmes au point sur M/DOS 6502; cela nous 
a ete confirme par des SSCI qui utilisent 
aussi la carte. 

La gestion de fichier 

La gestion de fichier est tres d if f erente de 
celle du DOS, tout d'abord par la nature meme 
des fichiers utilises, dont on distingue 
trois types : 

. les fichiers sequentiels relatif s; 

• les fichiers sequentiels indexes; 

* les fichiers multicles. 

Les fichiers sequentiels relatif s (FSR) sont 
semblables aux fichiers sequentiels du DOS. 

l^es fichiers sequentiels indexes (FSI) 
possedent une cle d T acces unique formee d T un 
ensemble de variables BASIC* Quand un 
enregistrement est recherche, ou bien il est 
trouve et tout va bien, ou bien il ne l T est 
pas et un drapeau signale l'echec de la 
recherche* 

Les fichiers multicles (FM) possedent au 
maximum 10 cles, chacune de celles-ci etant 
soit un ensemble de variables BASIC, soit un 
pointeur de fichier relatif. 

L 



Lhe grande originalite du M/DOS 6502 est la 
gestion dynamique des fichiers. II n T est pas 
besoin de def inir une longueur d T enregis- 
trement precise. Quand un fichier de type FSI 
ou FM est cree, le systeme propose une 
longueur indicative de reference qui sert a 
sa gestion du fichier, et que 1 1 utilisateur 
peut modifier a loisir. Le SED gere par 
lui-meme la longueur d T enregistrement. 

Quel que soit le type de fichier, lorsqu'un 
enregistrement recherche a ete trouve, cet 
enregistrement est lu automatiquement . l^es 
operations possibles a partir de la 
correspondent aux ordres suivants : 

NEXT - lit 1 T enregistrement suivant selon les 
cles ou le pointeur (s'il s'agit d T un fichier 
multicles, 1 1 utilisateur selectionne la cle) 
BORNE - fixe une limite a la cle du fichier 
(FSR, FSI, FM) 

XTRACT - selectionne un sous-fichier par 
selection d 'une sous-zone dans la cle (FSI, 
FM) 

XINDEX - met dans le pointeur d'un FSR le 
numero du prochain enregistrement qui sera 
cree par un ordre WRITE (FSR) 

WRITE - ecriture d 1 un nouvel enregistrement 

(tous fichiers); refuse les homonymes 

ADD - ecriture d T un nouvel enregistrement 

(FSI, FM); accepte les homonymes 

UPDATE - mise a jour d'un enregistrement 

(tous fichiers) 

READ - lecture d 1 un enregistrement (tous 
fichiers) 

DELET - destruction d 1 un enregistrement (tous 
fichiers) 

\j& M/DOS 6502 etant resident sur la carte, la 
place que le DOS occupe sur les disquettes 
(si l'on desire booter sans jongler avec les 
disquettes) est liberee. 

La gestion par masque des entrees/sorties 

II s'agit la d T une idee tres interessante; 
seuls ceux qui n T ont jamais travaille a 
l^ide de masques peuvent ne pas realiser 
l T apport de ceux-ci. Lh des premiers 
programmes que j 1 ai ecrits quand j T ai 
commence a travailler sur Apple est un 
programme de gestion des menus et des entrees 
par masque sur l'ecran. 

Pour definir un masque de saisie en M/DOS 
6502, il suffit (une fois l T editeur de 
masques charge) de rentrer a l^cran les 
libelles exactement ou on desire les voir 
apparaitre. Pour cela, il suffit d^tiliser 

29j 
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Zones ddfimes an sortie 



STOCK 
CO MM AN 



QTE MINIMUM COM;" * 

PflXVfNTf < "PV:" 1 PfWXACH 
COOiTVA* >'TV%/:" 




<"Ti*;7;" 



>! 



c'MAI?:" 



.14 



6xe a H>< a d a variables 
dafintea sous forma 
da tablaau dana 
un ticfcter 



Z one an sortie 
Servira pour renvov*' 
" un meatage 



EXEMPLE DE MASQUE E/S 



les instructions de deplacement du curseur a 
l'ecran (f leches, barre d 1 espacement, 
RETURN) . Ehsuite, les endroits ou doivent 
etre rentrees les donnees sont delimites avec 
les signes ,r < rr et "V . Le nom de la donnee 
correspond ante est inscrit entre les deux, 
quand il y a suffisamment de place, a cote 
autremen t . 

L'utilisation de memoires de masse 

M/DOS 6502 a ete congu de fagon que 
1' adaptation d'un programme a 1 1 utilisation 
de memoires de masse (disquette grande 
capacite, disque lourd) ne necessite aucune 
modification* II est possible d'ecrire le 
programme de maniere a le rendre 
immediatement operationnel sur divers 
supports de ce genre ♦ C'est pourquoi MIS, 
ainsi que d'autres fabricants ou 

distributeurs, propose des systemes M/DOS 
6502 multipostes. Christian Colmant en parle 
dans son article sur les memoires de masse. 



Commentaires generaux 

Quelles sont les critiques que l'on peut 
emettre a l'egard de la carte M/DOS 6502 ? 

Inconvenient 1 

Le tout premier est que, et il s'agit la d'un 
defaut helas bien francais, la documentation 
est francheroent mauvaise; quand au texte, il 
pourrait etre plus clair* Les fautes de 
francais courent apres celles d 1 orthographe. 
Alors que le M/DOS 6502 s'adresse aux 
utilisateurs Apple, aucune reference n'est 
faite, lors de la presentation des divers 
types de fichiers, au vocabulaire du DOS ou 
aux notions courantes pour les Appleomanes* 

Inconvenient 2 

La place que l'on est cense gagner sur la 
disquette en n 'y chargeant pas de SED est 
reperdue par les fichiers que M/DOS 6502 doit 
mettre en place pour effectuer sa gestion 
dynamique de la memoire. Eh effet, la gestion 
de fichier est prevue pour des fichiers de 16 
M-octets et 64K enregistrements • 



Inconvenient 3 

Les masques d 1 entrees/sorties gerent divers 
formats et/ou modes de representation 
alphanumerique, entier, reel, gestion (x 
decimales). II est regrettable qu'il n'y ait 
pas pour l'utilisateur la possibility de 
definir deux ou trois formats complementaires 
dont il a souvent besoin ♦ Par exemple, il est 
utile en gestion d 1 avoir le format 
xxx .xxx .xxx, xx dans lequel les grandes soromes 
sont rendues lisibles par le decoupage en 
tranches de trois chiffres. Note : un 
controle interzone conditionnel est annonce 
pour la release XI. 

Inconvenient 4 

La carte M/DOS 6502 n'est pas compatible avec 
les cartes langage possedant la ROM F8, ce 
qui est genant pour les utilisateurs de 
Pascal ou ceux qui ne peuvent se satisfaire 
des maigres 18K disponibles avec Visicalc 
3*3* MIS a, parait-il, 1' intention de 
modifier legerement sa carte de facon a 
rendre la carte langage prioritaire, ce qui 
eliminera ce probleme. 

Inconvenient 5 

La carte actuelle consomme trop et, lorsque 
nous avons voulu l'utiliser avec le lecteur 
1M d'lEF (voir l 1 article sur les memoires de 
masse), nous n'arrivions plus a booter. II a 
fallu changer des ROMs de l 1 Apple et y 
installer de plus puissantes pour enfin 
pouvoir travailler* II est vrai que, si 
1' Apple coroporte huit slots, cela ne veut pas 
dire que l'appareil fonctionne si on les 
utilise tous . ♦ . 

Apres ces critiques, quels sont les aspects 
positifs que nous pouvons souligner ? Nous 
reprenons ici ce qui nous a particulierement 
interesses sans enumerer tous les avantages 
annonces au debut de cet article. Nous 
n 1 avons pas eu l 1 occasion d'utiliser M/DOS 
6502 en multi-poste et ne pouvons done faire 
aucun commentaire sur ses performances a cet 
egard . 



30 



Pom's n°4 



Avantage 1 

Hors le probleme souleve ci-dessus, la 
gestion par masque des entrees/sorties gagne 
beaucoup de temps lors de la creation d 1 un 
programme . Les f onctions READ, UPDATE et 
WRITE, en gerant les informations un ecran a 
la fois, evitent de penibles series 
d 1 instructions de lecture et ecriture, tout 
en compactant enormement les programmes . 

Avantage 2 

Les fichiers multicles sont particulierement 
utiles et epargnent l 1 ecriture de routines de 
recherche d r enregistrements par cles, tout en 
f onctionnant de facon tres performant*. 
Avantage 3 

L'equipe qui a mis le M/DOS 6502 au point est 
une, equipe serieuse . Nous avons eu l 1 occasion 
de discuter avec des personnes qui avaient eu 
des difficultes avec la carte intiale; il ont 
beneficie d 1 un excellent service apres-vente, 
et les problemes ont ete resolus a la 
satisfaction generale. 
Conclusion 



Eh gerant la structure des donnees et des E/S 
ecran et imprimante independamment de la 
structure du programme BASIC, ce systeme 
permet une plus grande adaptability des 
applications sans modification du code en 
fcASIC. 

Notre conclusion generale est tout a fait 
favorable- La principale critique que I 1 on 
pouvait adresser sur le f ond etait le manque 
de transportability : un programme ecrit en 
M/DOS 6502 ne tourne que sur Apple et devra 
done etre reecrit si l r on change de materiel. 
Cet argument risque de perdre de son poids, 
puisque MIS etudie actuellement la 
realisation de M/DtS 6502 sur 8088, 8086, 
^•us MS/DOS, CP/M86 et sur 68000! 
Hemarques de la societe MIS 

1 . Uie nouvelle documentation est en cours de 
realisation . 

2. Ih controle interzone conditionnel est an- 
nonce pour la release XI. 

3- Des efforts sont consacres actuellement a 
1 Amelioration de la carte, afin qu'il n r y 
ait plus de problemes de puissance. 



Un catalogue general 
en Pascal 



Dans les precedents articles, nous avons 
place dans un seul fichier les repertoires de 
tous nos disques Pascal. Chaque ligne 
contient le nom du fichier et sa date, le 
genre et le type de programme 7 le nom du 
disque et le numero de la bolte ou il est 
range . 

Nous allons profiter de ces elements pour 
effectuer, a 1 'ecran ou sur 1 T imprimante, des 
selections permettant de retrouver un fichier 
par son nom bien sur, mais aussi de lister 
les fichiers selectionnes sur un type et sur 
un genre determines, ou encore d 'editer un 
catalogue par numero de boite ou par disque. 

Le programme precedemment ecrit (cf . Pom's 2 
et 3) reste valable; seules les procedures 
TRI et LIRE, qui etaient indiquees a 
ameliorer, sont a remplacer par celles qui 
paraissent au jourd ' hui , 

La procedure LIRE propose maintenant 
differentes options ; 

(0) : edition complete du catalogue comme 
precedemment 

( 1 ) : edition du catalogue selectionne en 
f onction d ' un type et d 1 un genre 

(2) : edition du catalogue par nom de disque 
ou de fichier 



v. 



(3) : edition par numero de boite ou de 
fichier. 

Le choix etant f ait, et le programme ayant 
demande s'il f aut une impression ou non, (le 
booleen IMP prenant la valeur de la f onction 
QUI), le CASE distribue la tache en f onction 
de 1 T option demandee. Si IMP est vrai, 
edition d ' un trait sur 1 1 imprimante, sortie 
de quelques lignes de papier et demande pour 
une autre recherche, le booleen QUIT (qui 
prend la valeur de NOT OUI) permettant 
1 ' interruption de la boucle globale WHILE NOT 
QUIT. 

Les differentes procedures de selection sont 
tres simples : 

- demande de precision dans le critere 

- choix du critere 

- sortie de la procedure par un EXIT si le 
critere est nul 

- sinon, affichage a l'ecran ou sur 1 1 im- 
primante des facteurs de selection et lec- 
ture ligne par ligne du fichier par une 
boucle FOR I ; = 1 TO NUMCAT- 1 DO. 

La boucle effectue une comparaison avec les 
valeurs de selection? quand la fiche est 
bonne t elle est imprimee si IMP est vrai, 
sinon affichee a 1' ecran. Le parametre I sert 
a indiquer le numero du fichier. 

31^ 



Pom's n°4 



- dans TRIGT : le type et le genre sont des 
lettres de A a Y entrees lors de la creation 
de la fiche; en effet la valeur Z sert ici 
a supprimer le facteur de selection, c'est a 
dire que genre A type Z signif ie n ' importe 
quel type de genre A. 

- dans TRINOM : il est possible, si l'on 
utilise des noms de fichiers tres structures 
(par exemple, quand tous les programmes 
graphiques comportent les lettres GR et les 
programmes utilitaires UT) de remplacer 
l'egalite de la boucle FOR par 1 'utilisation 
de la fonction POS du Pascal. Dans ce cas, 

( GARDEA.NOMFILEsST) 

devient (POS(ST, GARDE A.NOMFILE)<>0) . On peut 
trouver de cette fagon tous les noms ayant 
une syllabe valide au lieu d'une egalite 
stricte . 

<U/G> EXTRP0M3. TEXT <C> 1982 M. CRIMONT 31/03/S2 

(* =====P0UR POM' S=====PROGRAMME DE CATALOGUE GENERAL *) 



<*LIRE&TRI *> 

PROCEDURE TRI} 

YAR I {INTEGER* 

BEGIN 

MESSAGE (3,' EDITION DU CATALOGUE GENERAL' ) } 

IF IMP THEN 
BEGIN 

MESSAGE < 10 , ' xxixx SUR L ' 'IMPRIMANTE xxxii')| 

WRITELN( PAPIER, 'EDITION DU CATALOGUE GENERAL 't 55 ) i 
WRITELN( PAPIER ) END} 
TITRE} 

FOR i:=l TO NUMCAT-1 DO 
BEGIN 

GET (GARDE) i 

IF IMP THEN IMPRIME (I»GARDE A ) ELSE AFFICHE ( I» GARDE A ) 
END 

end; 

procedure trigtj 
var i jinteger} 
g » t , nul icharj 

BEGIN 

NUL:='Z' } 

MESSAGE (5, 'CODE DE "A" A "Y" OU "Z" POUR TOUS ' ) J 
MESSAGE ( 7 , ' CODE GENRE * ' ) }GJ =PRENCAR (C'A',«'Z',' '])} 
IF G=' ' THEN EXIT (TRIGT ) J 

MESSAGE (9, 'CODE TYPE t ' ) i T t =PRENCAR ( C ' A' . . ' Z ' , ' ' 3 > J 
IF T=' ' THEN EXIT(TRIGT); 




GOTOXY (0,3)} WRITE ( EFEs ) J 
MESSAGE (3,' CATALOGUE TRIE SUR '); 
IF GONUL THEN WRITE (' GENRE ;', G ) } 
IF (GONUL) AND (TONUL) THEN WRITE (' & ')} 
IF TONUL THEN WRITE ( ' TYPE t',T); 
IF IMP THEN 
BEGIN 

MESSAGE ( 1 » ' xxxxx SUR L ' ' IMPRIMANTE xxxxx'); 

write ( papier, ' ' 1 15, 'edition du catalogue trie sur ')} 
if gonul then write( papier , 'genrei ' ,g ) } 
if (gonul) and (to'z') then write ( papier , ' & ')} 
if tonul then write( papier , ' type i ', t )} writeln( papier ) j 
end; 

TITREJ 

FOR i:=l TO NUMCAT-1 DO 
BEGIN 

GET(GARDE) } 

IF ( ( GARDE A » GENRE t 13 = G) OR (G=NUL) )AND( ( GARDE A » GENRE C23=T )0R(T=NUL) ) 
THEN IF IMP THEN IMPRIME ( I , GARDE A ) ELSE AFFICHE (I»GARDE A ) 
END 

end; 

procedure trinomj 
VAR I iinteger; 

op :char; 

st ; string j 

BEGIN 

st: = " ; 

message(5, '<1> nom de fichier')} 
message(6,'<2> nom de disquemj 
message ( 7 , ' option ? ' ) j op j =prencar( c'l'»'2'])| 
message (9, 'nom du ' ) } if 0p= ' 1 ' then write (' fichier *,' ) else write 
cdisque:'); if op='1' then ij=is else i:=7} 

(x$V-x) 

PRENCHAINE (I,(C'A'..'Z','0'..'9',','D),ST)} 

(xty+x ) 

IF ST=" THEN EXIT (TRINOM) } 

GOTOXY (0, 3)} WRITE(EFB) J 

MESSAGE (3, 'CATALOGUE DU ' ) } 

IF 0P='l' THEN WRITE( 'FICHIER*. ', ST) 

ELSE WRITE ( 'DISQUEi ' ,ST) J 
IF IMP THEN 

BEGIN 

MESSAGE (10,' xxxxx SUR L' 'IMPRIMANTE xxxxx ' ) } 

write(papier, ' 't 15, 'catalogue ou ')j 
if 0p='l' then write(papier, 'fichierj ' ,st) 
else write( papier , ' disque j ' , st ) } writeln( papier ) j 

end; 
titre; 

FOR i;=l TO NUMCAT-1 DO 
BEGIN 

GET (GARDE) ; 

IF ((OP='l') AND (GARDE A .NOMFILE=ST) ) 

OR (<0P='2') AND (GARDE A .NOMDISK=ST) ) THEN 

IF IMP THEN IMPRIME ( I , GARDE A ) ELSE AFFICHE ( I , GARDE A ) 

END 

end; 

procedure trinumj 
var i,n :integer; 
op :char; 

BEGIN 
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NJ = 0{ 

MESSAGE(5, '<1> NUMERO DU FICHIER ' ) J 

MESSAGE ( 6, ' <2> NUMERO DE BOITE')J 

MESSAGE ( 7 , ' OPTION ? ' ) } OP ♦ =PRENCAR (C'l','2'3); 

REPEAT 

MESSAGE(9, 'NUMERO ')} 

IF OP='l' THEN WRITE ( ' DU FICHIER!') ELSE WRITE ( 'DE BOITE J ' ) } 

ENTIER(4,N) 
UNTIL (N<NUMCAT)} 
IF N=0 THEN EXIT (TRINUM) } 
GOTOXY ( , 3 ) } HRITE(EFB ) } 
IF OP='l' THEN 
BEGIN 

TITRE \ 

SEEK ( GARDE ,N) J GET( GARDE ) ; AFFICHE ( N , GARDE A ) 
END ELSE 
BEGIN 

MESSAGE ( 3, 'CONTENU DE LA BOITE NUMERO ');WRITE(N); 
IF IMP THEN 
BEGIN 

MESSAGE < 10,' xxxxx SUR L ' 'IMPRIMANTE xxxxx'); 

write(papier, ' ' j 15, 'contenu de la boite numero ',n>; 
writeln( papier) ; 
end; 
titre; 

FOR I! = l TO NUMCAT-1 DO 
BEGIN 

GET ( GARDE ) { 

IF GARDE A .NUMBOITE=N THEN 

IF IMP THEN IMPRIME ( I » GARDE A ) ELSE AFFICHE ( I , GARDE A ) 

END 
END 
END} 

procedure lire} 
var choix ;char; 

BEGIN 

quitj=false; 

gotoxy (0, 2) ; write (efb); 

message ( 3, ' le catalogue doit etre dans le drive 2')\ 
while not quit do 

BEGIN 

GOTOXY ( , * ) ; WRITE ( EFB ) ; NUMLIGNE ! =6 ; 
MESSAGED, '<0>JEDITION COMPLETE' ) ; 
MESSAGE ( 5, '<1>:EDITE PAR GENRE & TYPE')} 
MESSAGEC6, '<2>JEDITE PAR NOM (DlSQUE OU FICHIER)')} 
MESSAGE(7, '<3>;EDITE PAR NUMERO (BOITE OU FICHIER)')} 
WRITE (INV ) } IMP J =FALSE } 

MESSAGE( 9, 'OPTION ?' ) } CHOI X ! =PRENCAR ( C ' ' ♦ . '3'3){ 

MESSAGE ( 9, 'VOULEZ-VOUS IMPRIMER ? ');iMP:=OUi; 

WRITE (NORM) ; 

IF IMP THEN TRAIT} 

GOTOXY (0,3); WRITE(EFB) ; 

SEEK (GARDE, 1 ) J 

CASE CHOIX OF 

'0' jtri; 

'i' ;trigt; 

'2' :trinom; 

'3': TRINUM 

end; 

if imp then traitfin; 

message(22, 'une autre recherche (o/n) ? ');quit;=not oui 

END 

end; 



Chargez vite 
vos fichiers binaires 



Ce programme, baptise &LOAD, effectue un valeur doit etre inferieure a 572, pour ne 

chargement rapide de tout programme en pas ecraser la pile ni la page zero* Si le 

binaire, y compris les images graphiques: nom du fichier est donne entre guillemets, 

ceci est rendu possible par l'appel direct de les blancs sont signif icatif s, sauf s'il sont 

la RWTS et le chargement direct de chaque places a droite. 
secteur a son adresse definitive (sauf le 

premier et le dernier, pour ne pas "abimer" Dans cette version, la routine se dissimule 

renvironnement) . Grace a ce programme, une entre le DOS et ses buffers* Ces buffers sont 

image graphique haute resolution est chargee descendus de deux pages, ce qui peut etre 

en trois secondes, et meme moins si le moteur ennuyeux si on utilise &LOAD dans un 

est de ja lance . programme qui positionne HIM EM tres haut en 

memoire. 

Cette routine requiert de memoire, le DOS 

3.3 a son adresse habituelle et l 1 Applesoft uhe autre solution consiste a la dissimuler 

en ROM. Elle peut etre appelee sous dans le premier buffer du DOS en $9AA6, ce 

Applesoft, a partir d'un programme ou en mode qui permet, si l'on ne touche pas a MAXFILES, 

direct. Elle ne fonctionne ni en Integer, ni un f onctionnement normal de la plupart des 

en mode moniteur, car la command e "&" n'est programmes. II est en effet rare que l'on ait 

pas interpreted dans ces deux cas. Ehfin, plus de deux fichiers ouverts simultanement . 

nous rappellons qu'elle ne s r applique qu'aux La procedure a suivre est alors la suivante : 

fichiers de type binaire. remplacer les lignes 68 a 70 par RTS, et 

changer l'ORG de la ligne 7 4 de $9B00 a 

Elle ne detruit aucune adresse memoire de la $9AA6. 
page 0, sauf bien sur celles utilisees par 

RWTS. Elle necessite un seul pointeur page 0, Le programme a ete ecrit a l'aide de 

qui est d'ailleurs restaure a la fin, et des l'assembleur BIG MAC, qui est a mon avis 

adresses inutilisees dans le DOS. intrinsequement superieur au LISA 2.5- II 

autorise en particulier l 1 assemblage 

La syntaxe est la suivante : conditionnel et 1 1 utilisation de minuscules 

&nomfichier[, adresse de chargement] dans les commentaires. 
ou bien : 

&variablealpha[, adresse de chargement] Note d © la redaction : nous avons grace 

&LOAD charge en 9 secondes au lieu de 30 un 

L'adresse de chargement est optionnelle; elle fichier de 144 secteurs. Question ; les 

peut etre un nombre ou une variable adresses AA60 (longueur de fichier) et AA72 

numerique, mais elle doit etre decimale* Sa (debut) ne sont plus valables. Ou les 

trouve-t-on ? 
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9000: 

90 02i 
9005: 
9007: 

9ooa: 
90oc: 
90 of: 
90ii: 
9on: 

90171 
9018: 

90 ia: 
90 id: 
9020: 
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A9 00 
8D F6 
A9 9B 
8D F7 
A9 4C 
8D F5 
A2 00 
BO 28 
9D 
E8 

DO F7 
8D 2B 
9D 
E8 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

03 54 
55 

03 56 
57 

03 58 
59 

90 60 
9B 61 

62 
63 

91 64 
9C 65 

66 



ORG $9000 

x 
x 



X 
X 
X 
X 
X 



&BLOAD 
Jacques Tran-Van 



x 

X 
X 
X 
X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 

x 18/04/82 

X 

PTR EQU $1E 

START EQU $1E 

VALTYPE EQU $11 

TRAP EQU $18 

LINUM EQU $50 

CHARGET EQU $B1 

CHARGOT EQU $67 

TXTPTR EQU $B8 

AMPERVT EQU $3F5 

ERHANOL EQU $A6D5 

CLNBUFF EQU $A7D4 

ERRCOOE EQU $AA5C 

NAME EQU $AA75 

LENGTH EQU $AAAB 

SAV1 EQU $AAAC 

SAV2 EQU $AAAD 

TEMP EQU $AAAE 

FLAG EQU $AAAF 

ADRFLAG EQU $AAB0 

BUFFER EQU $B3BB 

TAMPON EQU $B4BB 

RWTS EQU $B7B5 

IOB EQU $B7E8 

VOLUME EQU IOEi+3 

TRACK EQU 106+4 

SECTOR EQU IOB+5 

BUFADR EQU I0E:+3 

COMMAND EQU I0E:+12 

BASCERR EQU $D412 

FRMNUM EQU $DD67 

FRMEVL EQU $DD7B 

CHKCOM EQU $DEBE 

PTRGET EQU $DFE3 

GETADR EQU $E752 

SETVID EQU $FE93 
x 
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AA 


29 


C8 


9C 


81 


9146- 


0C 


AS 


IE 


AA 


IF 


29 


EE 


9C 


9139- 


AO 


AF 


AA 


F9 


92 


29 


CA 


9C 


9138- 


21 


66 


9C 


AO 


AF 


AA 


to 


80 


91A9- 


2t 


69 


AA 


39 


Ia 


A3 


39 


80 


9168- 


68 


64 


A9 


31 


bo 


N 


84 


88 


»t?l- 


AQ 


88 


fe4 


£v 


14 




IE 


80 


9170- 


F0 


fe? 


AS 


ec 


6 4 


£9 


DO 


83 


4181- 


IF 


80 


F | 


El/ 


A9 


14 


ID 


OA 


91B8- 


9C 


16 


AD 


00 


81 


BO 


ft& 


AA 


9191- 


A* 


00 


80 


£2 


9C 


OO 




AA 


9198- 


AO 


C9 


83 


Ffl 


22 


2% 


09 


9C 


91AI- 


At. 


ft£ 


AA 


n 


61 


87 


tA 


IF 


91 A8- 


C| 


El 


FE 


M 


ID 


UO 


yo 


63 


Ttei- 


DO 


A* 


21 


E A 


9C 


2C 


no 


9C 


91 B»- 


A9 


18 


81 


41} 


BD 


DA 


fC 


AO 


91CI- 


AO 


AA 


6D 


EZ 


9C 


20 


09 


9C 


91C9- 


F8 


34 


AD 


ec 


63 


Ft 


C5 


21 


9101- 


88 


9C 


AO 


80 


63 


60 


EO 87 


4108- 


£* 


IF 


29 


E4 


9C 


AO 


8C 


63 


91E8- 


80 


EC 


87 


4C 


19 


9C 


80 


88 


n£9- 


68 


80 


EC 


87 


E9 


80 


88 


89 


9in- 


SO 


Ed 


87 


BE 


AE 


AA 


A9 


6 


91F8- 


A« 


E8 


29 


63 


87 


98 


It 


A2 


9280- 


•6 


AC 


9A 


tc 


At 


99 


89 


88 


9Z01- 


•9 


91 


IE 


C8 


CO 


10 


80 


Ft 


9211- 


69 


A9 


6301 


12 


AO 


64 


A9 


9218- 


66 


BD 


ft 


87 


8C 


Fl 


67 




9229* 


O 


AC 


AA 


83 


IE 


AD AO 


4228- 


85 


IF 


48 











LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 

MOVEPGM LDA 
STA 
INX 
BNE 

MOVEPGM1 LDA 
STA 
INX 



♦<ENTREE 

AMPERVT+1 

*>ENTREE 

AMPERVT+2 

♦$^10 

AMPERVT 

*0 

MOVEADR ♦ X 
ENTREEaX 



Jposi tionne le vecteur 
Jd' ampersand 



{cache le pg« entre 
i le dos et ses buffers 



MOVEPGM 

M0VEADR+256,X 

ENTREE+256 r X 



Pom's n°4 



9021J 


DO 


F7 




67 




BNE 


MOVEPGM1 




9023} 


A9 


9A 




68 




LDA 


**9A 




9025: 


8D 


01 


9D 


69 




STA 


*9D01 


Jdecale les buffers des 2 pages 


9028: 


4C 


D4 


A7 


70 
71 
72 
73 
74 
75 


X 

MOVEADR 

X 
X 


JMP 
EQU 
ORG 


CLNBUFF 

X 

♦ 9B00 


Jet les reconstruit 


9»oo: 


A5 


IE 




76 


ENTREE 


LDA 


PTR 


isauve les nenoires page 


9B02: 


8D 


AC 


AA 


77 




STA 


SAV1 


Jutilisees par le pgn 


9B05: 


A5 


IF 




78 




LDA 


PTR+1 




9B07: 


8D 


AD 


AA 


79 




STA 


SAV2 




?boa: 


20 


B7 


00 


80 




JSR 


CHARGOT 




9B0DJ 


C9 


22 




81 




CMP 




Jtitre entre apostrophes ? 


9bof: 


DO 


28 




82 




BNE 


NOCONST 




9B11J 


A9 


06 




83 




LDA 


#6 


Jhodifie CHARGET pour qu / elle 


9B13J 


85 


CI 




84 




STA 


*C1 


Jaccepte les espaces 


9B15: 


AO 


00 




85 




LDY 


#0 




9B17: 


8C 


EB 


B7 


86 




STY 


VOLUME 


Jvolune prevu 


9bia: 


20 


Bl 


00 


87 


INPLOOP 


JSR 


CHARGET 


Jlit le caractere suivant 


9B1DJ 


C9 


22 




88 




CMP 






9B1FJ 


FO 


oc 




89 




BEQ 


ENDNAME 


if in du titre 


9B21J 


09 


80 




90 




ORA 


#$80 


Jleve le bit de poids fort 


9B23: 


99 


75 


AA 


91 




STA 


NAME * Y 


isauve le noM dans NAME 


9B26J 


C8 






92 




INY 






9B27J 


CO 


IE 




93 




CPY 


#30 


Jpas plus de 30 caracteres 


9829} 


90 


EF 




94 




BCC 


INPLOOP 




9B2BJ 


BO 


34 




95 




BCS 


SYNTAX 


Jsi trop long, 'SYNTAX ERROR' 


9B2DJ 


A9 


EF 




96 


ENDNAME 


LDA 


#iEF 




9B2F: 


85 


CI 




97 




STA 


*C1 


Jrestaure CHARGET 


9B3i: 


20 


Bl 


00 


98 




JSR 


CHARGET 




9B34J 


CO 


00 




99 




CPY 


♦ 




9B36J 


DO 


4C 




100 




BNE 


ENDSTOR 


Jterwine par des espaces 


9B38J 


60 






101 
102 


X 


RTS 




Jretour au BASIC 


9B395 


A5 


B8 




103 


NOCONST 


LDA 


TXTPTR 




9B3BJ 


48 






104 




PHA 




isauve le pointeur de CHARGET 


9B3CJ 


A5 


B9 




105 




LDA 


TXTPTR+1 




9B3E! 


48 






106 




PHA 






9B3F: 


20 


7Bt 


DD 


107 




JSR 


FRMEVL 


J e value 1 'expression 


9B425 


24 


11 




108 




BIT 


VALTYPE 


Jcontrole le t^pe de la variable 




30 


08 




109 




BMI 


STRING 


Jsi < 0, alphanuner ique 


9B16S 


A2 


A3 




110 




LDX 


**A3 


J code de 'TYPE MISMATCH' 


9B48: 


20 


F5 


9C 


111 




JSR 


RESTORE 




9848: 


4C 


12 


D4 


112 
113 


X 


JMP 


BASCERR 


Jaffichage du Message d'erreur 


9B4E: 


68 






114 


STRING 


PLA 




Jrecupere le pointeur initial 


9B4f: 


85 


B9 




115 




STA 


TXTPTR+1 




9B51J 


68 






116 




PLA 






9B52J 


85 


B8 




117 




STA 


TXTPTR 




9B54S 


20 


E3 


DF 


118 




JSR 


PTRGET 


Jtrouve le pointeur de variable 


9B57: 


85 


IE 




119 




STA 


PTR 


Jle range dans PTR 


9B59J 


84 


IF 




120 




STY 


PTR + 1 




9B5BJ 


AO 


00 




121 




LDY 


#0 




9B5D: 


Bl 


IE 




122 




LDA 


<PTR>,Y 


J longueur du now 


9B5F: 


DO 


05 




123 




BNE 


NONUL 


Jle string existe 


9B61J 


A2 


OB 




124 


SYNTAX 


LDX 


#11 




9B63J 


4C 


OA 


9C 


125 




JMP 


ERROR 


Jretour au BASIC, et 'SYNTAX ERROR' 


9B66: 


8D 


AB 


AA 


126 


NONUL 


STA 


LENGTH 




9B69J 


C8 






127 




INY 






9B6A: 


Bl 


IE 




128 




LDA 


(PTR), Y 


Jpointeur vers les valeurs 


9B6CJ 


48 






129 




PHA 




Jdans PTR 


9B6DJ 


C8 






130 




INY 







37 



9B6E: 


Bl 


IE 




131 




LDA 


<PTR ) $ Y 




9B70: 


85 


IF 




132 




STA 


FTR + l 




9672: 


68 






133 




PLA 






9B73: 


85 


IE 




131 




STA 


PTR 




9B75: 


AO 


00 




135 




LDY 


#0 




9677: 


Bl 


IE 




136 


STORE 


LDA 


<PTR) ,Y 


JsauvG le tltre dsns NAME 


9B79t 


09 


80 




137 




ORA 


*$80 




9B7B: 


99 


75 


AA 


138 




STA 


NAME»Y 




987E: 


C8 






139 




INY 






987F: 


cc 


AB 


AA 


110 




CRY 


LENGTH 




9B82: 


DO 


F3 




111 




BNE 


STORE 




9B81: 


A9 


AO 




112 


ENDSTOR 


LDA 


£ M n 


{complete le non par des espsces 


9686: 


99 


75 


AA 


113 


SPACE 


STA 


NAME, Y 




9B89: 


C8 






111 




INY 






9B8A: 


CO 


IE 




115 




CPY 


#30 




9B8C: 


DO 


F8 




116 




BNE 


SPACE 




9B8E: 


8D 


BO 


AA 


117 
118 


X 


STA 


ADRFLAG 


Jflag d'adresse < 


9B91i 


20 


F5 


9C 


119 




JSR 


RESTORE 


Jrestaure le pointeurtsi erreur) 


9B91: 


20 


B7 


00 


150 




JSR 


CHARGOT 


}y a-t-il autre chose derriere ? 


9B97: 


FO 


12 




151 




BEG 


SEARCH 


i non 


9B99: 


20 


BE 


DE 


152 




JSR 


CHKCOM 


Jdlors 11 faut une virgule ! 


9B9C: 


20 


67 


DD 


153 




JSR 


FRMNUM 


Revalue la fornule qui suit 


9B9F: 


20 


52 


E7 


151 




JSR 


GETADR 


{range l'adresse dans LINUM 


9BA2: 


A5 


51 




155 




LDA 


LINUM+1 


tsi adresse de chargenent < $200 


98A1: 


C9 


02 




156 




CMP 


*2 


i alors erreur ! ! 


9BA6: 


90 


B9 




157 




BCC 


SYNTAX 




9BA8: 


1E 


BO 


AA 


158 
159 


X 


LSR 


ADRFLAG 


Jflag d'adresse > 


9bab: 


A9 


01 




160 


SEARCH 


LDA 


#1 


Jconnsnde lecture pour la RNTS 


9bad: 


8D 


F1 


B7 


161 




STA 


COMMAND 




9BB0 : 


A9 


10 




162 




LDA 


#$10 




9BB2: 


BD 


ED 


B7 


163 




STA 


SECTOR 




9BB5: 


A9 


11 




161 




LDA 


#tll 




9BB7: 


8D 


EC 


B7 


165 




STA 


TRACK 




9bba: 


20 


E6 


9C 


166 




JSR 


SETBUF 


{BUFFER pris conne buffer 


9BBDJ 


CE 


ED 


B7 


167 


NEXTSCT 


DEC 


SECTOR 


} secteur suivant 


9BC0: 


FO 


16 




168 




BEG 


NOFILE 


Jfin de la directory 


9BC2: 


20 


CB 


9C 


169 




JSR 


READSCT 


J lecture du secteur 


9BC5: 


AO 


EB 




170 




LDY 


#$EB 




9BC7: 


8C 


AE 


AA 


171 




STY 


TEMP 




9bca: 


AD 


AE 


AA 


172 


NEXTFIL 


LDA 


TEMP 




9bcd: 


18 






173 




CLC 






9BCEJ 


69 


23 




171 




ADC 


#35 




9BD0: 


A8 






175 




TAY 




Jpointe vers le prochain titre 


9BDi: 


8D 


AE 


AA 


176 




STA 


TEMP 




9BD1: 


C9 


03 




177 




CMP 


*3 




9bda: 


FO 


E5 




178 




BEG 


NEXTSCT 


Jfin du secteur 


9BD8: 


A2 


00 




179 




LDX 


#0 




9bda: 


B9 


BB 


B3 


180 


TESTNOM 


LDA 


BUFFER, Y 




9bdd: 


FO 


29 




181 




BEG 


NOFILE 


}fin de la directory 


9BDF ♦ 


DD 


75 


AA 


182 




CMP 


NAME * X 


Jconpare le non a NAME 


9BE2: 


DO 


E6 




183 




BNE 


NEXTFIL 




9BEi: 


C8 






181 




INY 






9BE5: 


E8 






185 




INX 






9BE6J 


EO 


IE 




186 




CPX 


#30 




9BE8: 


DO 


FO 




1B7 
188 


X 


BNE 


TESTNOM 


5fin du non ? 


9BEAt 


B9 


9C 


B3 


189 




LDA 


BUFFER-31 f Y 


Jqi^el est son type ? 


9BED: 


29 


01 




190 




AND 


#4 


}binaire<4 ou 84) ? 


9Bef: 


DO 


01 




191 




BNE 


FINDFIL 


Joui bon type 


9BF1: 


A2 


OD 




192 




LDX 


♦ 13 


Jcode de 'FILE TYPE MISMATCH' 


9BF3: 


DO 


15 




193 




BNE 


ERROR 




9BF5J 


AC 


AE 


AA 


191 


FINOFIL 


LDY 


TEMP 


Jrecupere le pointeur de non 


9BF8: 


B9 


B9 


B3 


195 




LDA 


BUFFER-2 1 Y 





Pom's n Q 4 



9bfb: 


8D 


ED 


B7 


196 




STA 


SECTOR 


?bfe: 


B9 


68 


B3 


197 




LDA 


BUFFER-3 , Y 


9coi: 


30 


C7 




198 




BHI 


NEXTFIL 


9C03J 


8D 


EC 


B7 


199 




STA 


TRACK 


9C06: 


DO 


OE 




200 




BNE 


LOAOPGH 


9C08: 


A2 


06 




201 


NOFILE 


LOX 


#6 


9coa: 


8E 


5C 


AA 


202 


ERROR 


STX 


ERRCODE 


9C0d: 


20 


F5 


9C 


203 




JSR 


RESTORE 


9cio: 


20 


93 


FE 


204 




JSR 


SETVID 


9C13: 


4C 


D5 


A6 


205 
206 


* 


JMP 


ERHANOL 


9C16t 


80 


AF 


AA 


207 


LOAOPGH 


STA 


FLAG 


9C19: 


20 


CB 


9C 


208 


NEXTSL 


JSR 


READSCT 


9C1CJ 


A2 


OC 




209 




LOX 


♦♦OC 


9cie: 


AS 


IE 




210 




LDA 


START 


9C20: 


A4 


IF 




211 




LOY 


START+1 


9C22: 


20 


EE 


9C 


212 




JSR 


LOCBUF 


9C25: 


AD 


AF 


AA 


213 




LOA 


FLAG 


9C28: 


FO 


03 




214 




BEG 


INPSECT 


9C2A: 


20 


EA 


9C 


215 




JSR 


SETTAHP 


9C2D: 


20 


BB 


9C 


216 


INPSECT 


JSR 


READPGH 


9C30i 


AD 


AF 


AA 


217 




LOA 


FLAG 


9C33: 


FO 


40 




218 




BEQ 


NEXTONE 


9C35: 


2C 


BO 


AA 


219 




BIT 


ADRFLAG 


9C38: 


30 


OA 




220 




BHI 


NOADR 


9C3AJ 


AS 


50 




221 




LOA 


LINUH 


9C3C: 


8D 


BB 


B4 


222 




STA 


TAHPON 


9C3Ft 


A5 


51 




223 




LOA 


LINUH+1 


9C41J 


8D 


BC 


B4 


224 




STA 


TAHPON+1 


9C44: 


38 






225 


NOADR 


SEC 




9M55 


AD 


BB 


B4 


226 




LOA 


TAHPON 


9C48: 


E9 


04 




227 




SBC 


♦ 4 




85 


IE 




228 




STA 


START 


9C1C5 


8D 


FO 


B7 


229 




STA 


BUFADR 


?C4f: 


AO 


BC 


B4 


230 




LOA 


TAHPON+1 


9C52: 


E9 


00 




231 




SBC 


*0 


?C54t 


85 


IF 




232 




STA 


START+1 


9C5A: 


8D 


Fl 


B7 


233 




STA 


BUFAOR+1 


9C59: 


A9 


04 




234 




LOA 


*4 


9C5B: 


80 


DA 


9C 


235 




STA 


DEPLACE+1 


9C5EJ 


18 






236 




CLC 




9C5F: 


6D 


BD 


B4 


237 




AOC 


TAHPON+2 


9C62: 


80 


AB 


AA 


23B 




STA 


LENGTH 


?C65t 


A9 


00 




239 




LOA 


#0 


9CA7: 


8D 


E2 


9C 


240 




STA 


ENDHOVE+1 


9caa: 


8D 


AF 


AA 


241 




STA 


FLAG 


9C4D: 


AD 


C9 


B3 


242 




LDA 


BUFFER+14 


9C70J 


FO 


22 




243 
244 


X 


BEQ 


LAST 


9C72J 


20 


D9 


9C 


245 




JSR 


DEPLACE 


9C75: 


AE 


AE 


AA 


246 


NEXTONE 


LOX 


TEHP 


9C78t 


EE 


Fl 


B7 


247 




INC 


BUFADR+1 


9C78i 


E6 


IF 




248 




INC 


START+1 


9C7DJ 


E8 






249 




INX 




9C7E: 


EO 


FE 




250 




CPX 


**FE 


9C80: 


BO 


ID 




251 




BCS 


ENDTSL 


9C82J 


80 


BD 


63 


252 




LOA 


BUFFER+2,X 


9C85: 


DO 


A6 




253 
254 


X 


BNE 


INPSECT 


9C87: 


20 


EA 


9C 


255 


LASTSCT 


JSR 


SETTAHP 


9C8AJ 


20 


8B 


9C 


256 




JSR 


REAOPGH 


9C8DJ 


A9 


00 




257 




LOA 


*0 


9C8F1 


85 


48 




258 




STA 


TRAP 


9C91S 


8D 


DA 


9C 


259 




STA 


DEPLACE+1 


9C94{ 


AD 


AB 


AA 


260 


LAST 


LOA 


LENGTH 



{* du secteur de la TSL 
}* de la piste de la TSL 
J*i efface, le saute 

{charger le progrsnne 

{ code de TILE NOT FOUND' 

{range le code de l'erreur 

Jrestaure les nenoires page 

{PR*0 

{saut a la routine d'erreur du DOS 

{initialisation de FLAG< <> 0) 
{lit la TSL dans BUFFER 
Jpointeur dans la TSL 
Jrecupere l'adresse du buffer, 
}si c'est la 2ene TSL 



{si * 0, lit le secteur 
{TAMPON est pris conne buffer 
} lecture du secteur du pg* 

{chargenent a une autre adresse ? 
{ non 



Jcalcule les adresses 
jde debut de progrannet 
Jet de chargenent 



{depart du 'Move' du ler 
{secteur du pgn 

{augnente la longueur de 4 
{longueur du dernier secteur 
{fin du 'Move' 

{annule le flag 

{un autre secteur a lire ? 

{c'est le dernier 

{deplace le secteur 

Jrecupere le pointeur dans la TSL 

{buffer suivant 

{ increnente l'adresse destination 
{secteur suivant 
{dernier de cette TSL ? 
{oui 

{y a-t-il une suite ? 



{TAMPON cowrie buffer 

{lit le dernier secteur du pgn 

{Voir Call Apple Janvier 82 
{deplace a partir du debut 



9C97J 


8D 


E2 


9C 


261 




STA 


ENDMOVE+1 


J 'longueur' du dernier secteur 


9C9AJ 


20 


D9 


9C 


262 




JSR 


DEPLACE 


J deplacefient 


9C9DJ 


FO 


56 




263 
264 


X 


BEG 


RESTORE 


Jretour au BASIC 


9C9F: 


AD 


BC 


B3 


265 


ENDTSL 


LDA 


BUFFER+l 


J* de secteur pour la TSL suivante 


9CA2: 


FO 


E3 




266 




BEG 


LASTSCT 


Jpas de 2nde TSL 


9CA4J 


20 


BB 


9C 


267 




JSR 


READPGM 


Jlit le dernier secteur de la TSL 


9CA7: 


AD 


BD 


B3 


268 




LDA 


BUFFER+2 


J* de secteur de la 2nde TSL 


9CAA: 


8D 


ED 


B7 


269 




STA 


SECTOR 




9CAd: 


E6 


IF 




270 




INC 


START+1 


Jbuffer suivantCpour la suite) 


9CAf: 


20 


E6 


9C 


271 




JSR 


SETBUF 


Jla 2nde TSL est lue dans BUFFER 


9CB2: 


AD 


BC 


B3 


272 




LDA 


BUFFER+l 


#* de piste de la 2nde TSL 


9CB5: 


8D 


EC 


B7 


273 




STA 


TRACK 




9CB8J 


4C 


19 


9C 


274 
275 


X 


JMP 


NEXTSL 




9CBB: 


BD 


BB 


B3 


276 


READPGM 


LDA 


BUFFER t X 


Jpiste 


9cbe: 


8D 


EC 


B7 


277 




STA 


TRACK 




9CC1J 


E8 






278 




INX 






9CC2: 


BD 


BB 


B3 


279 




LDA 


BUFFER ♦ X 


Jsecteur 


9CC5: 


8D 


ED 


B7 


280 




STA 


SECTOR 




9CC8J 


8E 


AE 


AA 


281 




STX 


TEMP 


Jsauve le pointeur 


9CCb: 


A9 


B7 




282 


READSCT 


LDA 


#>IOB 


Jadresse de 1'IOB 


9CCDJ 


AO 


E8 




283 




LDY 


*<IOB 


} ( pour un 48K > 


9CCFJ 


20 


B5 


B7 


284 




JSR 


RWTS 




9CD2J 


90 


11 




285 




BCC 


NOERROR 


Jpas d'erreur a la lecture 


9CD45 


A2 


08 




286 




LDX 


*8 


Jcode de ' I/O ERROR' 


9CD6: 


4C 


OA 


9C 


287 
288 


X 


JMP 


ERROR 


Jretour au BASIC 


9CD9: 


AO 


00 




2B9 


DEFLACE 


LDY 


#0 


J'poke' les valeurs 


9CDB: 


B9 


BB 


B4 


290 


MOVE 


LDA 


TAMPON f Y 


Jde depart et de fin 


9CDe: 


91 


IE 




291 




STA 


(START) ,Y 


Jde cette routine 


9CE0: 


C8 






292 




INY 






9CEi: 


CO 


00 




293 


ENDMOVE 


CPY 


#00 




9CE3J 


DO 


F6 




294 




BNE 


MOVE 




9CE5J 


60 






295 
296 


NOERROR 

X 


RTS 






9CE6: 


AO 


B3 




297 


SETBUF 


LDY 


#>BUFFER 


JBUFFER pris co«ne buffer 


9CE8J 


DO 


02 




298 




BNE 


COMMUN 




9CEAJ 


AO 


64 




299 
300 


SETTAMP 

X 


LDY 


#>TAMPON 


JTAMPON pris conne buffer 


9CECI 


A9 


BB 




301 
302 


COMMUN 

X 


LDA 


#<BUFFER 


JBUFFER et TAMPON consecutif* 


9CEEJ 


8D 


FO 


B7 


303 


LDCBUF 


STA 


BUFADR 


Jpositionne le pointeur de buffer 


9CF1 J 


8C 


Fl 


B7 


304 




STY 


BUFADR+1 




9CF4J 


60 






305 
306 


X 


RTS 






9CF5: 


AD 


AC 


AA 


307 


RESTORE 


LDA 


SAV1 




9CF85 


85 


IE 




308 




STA 


PTR 


Jrestaure les wewoires paqe 


9CFAJ 


AD 


AD 


AA 


309 




LDA 


SAV2 


Jutilisees par le pg« 


9CFDJ 


B5 


IF 




310 




STA 


PTR + 1 




9CFF: 


60 






311 
312 


X 


RTS 







— END ASSEMBLY-- 
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Les codes ASCII epiuches 



Certains de nos lecteurs nous ont reproche de 
copier des articles deja parus dans des 
revues etrangeres. La critique est aisee, 
mais l'art est difficile ! De par leur 
nombre, leur periodicite et leur anteriorite, 
les revues americaines ont accumule un nombre 
impressionnant d 1 articles. II serait 
assurement possible a un collectionneur 
assidu des Softalk, Call-Apple, Nibble, 
Compute et autres revues de trouver pour la 
majorite des articles parus dans Pom's un 
article deja publie traitant du meme sujet ou 
ayant des ressemblances . 

Devrions-nous nous abstenir de publier des 
articles sur le DOS, des comparaisons entre 
les systemes de traitements de texte, une 

initiation a 1 'assembleur, etc sous 

pretexte que des choses semblables ont ete 
vues dans des revues etrangeres ? Outre que 
nos lecteurs ne lisent pas tous l r anglais 
couramment, on n'a pas tou jours le loisir 
d'avaler (et de digerer . ..) une dizaine de 
revues par mois * Nous tenons a vous of f rir 
une revue interessante, vivante et utile, 
avec le maximum d 1 articles originaux. Mais, 
lorsque nous trouvons des choses 

interessantes chez les autres, pourquoi ne 
pas vous en faire prof iter ? C'est le cas 
ici, puisque les tableaux 1 a k nous ont ete 
inspires par un article de la revue Micro, 
the 6502 and 6809 Journal, du mois d'octobre 
1984. 

Nous esperons que ces tableaux vous aideront 
et qu'ils seront en bonne place dans votre 
aide-memoire. Afin que leur utilisation vous 
soit plus facile, voici ci-dessous les 
explications concernant chaque colonne : 

* HEXA : contient tous les nombres 
hexadecimaux de $00 a $FF. 

* DECIMAL : traduction decimale du nombre 
hexadecimal . 

* BINAIRE : octet de 8 bits representatif du 
nombre en hexa. 

* DEC*256 : valeur decimale de l 1 octet haut 
d'un nombre ou d r une adresse 16 bits* 

* ASCII : sjgne ASCII attribue au nombre 
hexa correspondant . Ce code etant exprime en 
7 bits, les signes sur les valeurs de $00 a 
$7F sont identiques a ceux des valeurs de $80 
a $FF. 

* ECRAN : le manuel de reference donne en 
page 15 la correspondance exacte entre la 
valeur hexa et sa representation sur l'ecran. 
Les lettres I, F et N representent les modes 



Inverse, Flash et Normal, t^s valeur non 
affichees a l'ecran sont remplaces par des 
tiret s. 

* T0UCHE : indique la touche a appuyer afin 
d'obtenir la valeur correspondant e. A noter 
que lesvaleurs $00 a $7F ne peuvent etre 
obtenues a partir du clavier. Les lettres C, 
S et CS representent les touches Control, 
Shift et la combinaison des deux. 

* OPCODES : represente en mnemoniques 6502 la 
signification des differentes valeurs hexa, 
dans le cas du langage machine. Les notations 
suivantes ont ete utilisees : 

A absolu Im immediat 

A,X absolu indexe par X (I) indirect 
A, Y absolu indexe par Y ZP page zero 
(I,X) indirect indexe par X 
(I,Y) indirect indexe par Y 
ZP,X page zero indexe par X 
ZP, Y page zero indexe par Y 

* TOKEN : le BASIC Integer et 1' Applesoft 
utilisent, afin de diminuer 1 1 encombrement 
taemoire, un codage des mots reserves du 
BASIC. Les codes $00 a $7F sont reserves a 
l 1 Integer, ceux entre $80 et $FF a 
l 1 Applesoft, Dans le cas de l 1 Integer, ou un 
meme sjgne peut avoir plusieurs codes selon 
le contexte, un court exemple est donne a 
droite de la colonne. 




Pom's n°4 



41 



TABLEAU 1 <S0O a »3F) 



1 1 

!HEXA! 


DEC 


i __„„ . .., . „.,., 
! BINAIRE 


!DEC*256! 


ASCII'ECRAN 


T(JUCH! 


OPCQDE-6502! 


! 

TOKEN INTEGER ! 
1 


! 00 ! 





! 00000000 


! ! 


nul ! I \ 


\9 


m ! 


BRK ! 


Debut de ligne ' 


! 01 ! 


1 


! 00000001 


* 256 1 


soh ! Ii 


:A 


! 


0RA-(I,X) ! 


Fin de ligne ! 


! 02 i 


2 


! 00000010 


! 512 ! 


stx ! I ! 




— ! 


! 


Hon utilise ! 


! 03 ! 


3 


! 00000011 


' 768 


etx ! I ! 


fC 


— ! 


! 


: separateur ! 


! 04 ! 


4 


! 00000100 


! 1024 


eot, ! Is 


:D 


*■ ! 


! 


LOAD K7 ! 


! 05 ! 


5 


■ 00000101 


! 1280 


eoq ! I ! 


;E 


— ! 


OfW-ZP ! 


SAVE K7 * 


• 06 ! 


6 


■ 00000110 


* 1536 1 


ack ! I: 


»F 


— ! 


ASL-ZP ! 


CON ! 


! 07 ! 


7 


■ 00000111 


! 1792 


bel ! I : 


:G 


— j 


i 


RUN ligne n ! 


! 08 ! 


8 


! 00001000 


! 2048 


bs 1 I: 


sH 


— 


PHP ! 


RUN debut ! 


! 09 ! 


9 


! 00001001 


! 2304 


ht ! I 


-I 


— ! 


ORA-Ia ! 


DEL ! 


! OA ! 


10 


! 00001010 


! 2560 ! 


If ! Ii 


1 j 


— 


ASL ! 


, DEI. 0,5 ! 


! OB ! 


11 


! 00001011 


■ 2816 


vt ! I: 


\K 


— j 


! 


NEW ! 


! OC ! 


12 


! 00001100 


! 3072 


ff ! Is 


»L 


— ! 


! 


CLR ! 


! OD ! 


13 


! 00001101 


■ 3328 


cr ! I ! 


sM 


— ! 


ORA-A ' 


AUTO ! 


! OE ! 


14 


! 00001110 


! 3584 


so ! I J 


sN 


* ! 


ASL-A ' 


, AUTO 0,5 ! 


! OF ! 


15 


' 00001111 


! 3840 


si ! I 




— ! 


1 


NAN ! 


! 10 ! 


16 


! 00010000 


• 4096 


die ? Ii 


:P 


! ■* 


BPl f 


HI MEN: ! 


! 11 ! 


17 


! 00010001 


! 4352 


del j Is 


:Q 


— ! 


ORA-(I),Y ! 


LOHEN: ! 


! 12 ! 


18 


! 00010010 


■ 4608 


dc2 ! Ii 


:R 


— ! 


! 


+ operateurs ! 


! 13 ! 


19 


! 00010011 


! 4864 


dc3 ! I 


sS 


— 1 


1 


- nueeriques ! 


! 14 ! 


20 


! 00010100 


! 5120 


dc4 f I 


• T 


— 1 


1 


> par exeaple: ! 


! 15 ! 


21 


! 00010101 


! 5376 


nalc 1 I ! 


:U 

• w 


— 


□RA-ZP P X ! 


/ A=14«(27+15> ! 


! 16 1 


22 


! 00010110 


! 5632 


eyn 1 I ! 
ayn X. 


! V 


— ! 


ASL-ZP,X ! 


at | 


! 17 ! 


23 


! 00010111 


! 5888 


etb ! I s 


: W 


— ! 


! 


# operateurs ! 


! 18 1 


24 


! 00011000 


! 6144 


can ! I 


:X 


— ! 


CLC ! 


>= logiques ! 


! 19 ! 


25 


! 00011001 


! 6400 




! Y 


t — 1 


ORA-A, Y ! 


> pour ! 


! 1A ! 


26 


! 00011010 


! 6656 


sub ! I i 


\Z 


— ■ 


— ( 


<= variables ! 


! IB ! 


27 


! 00011011 


! 6912 


esc \ I 1 


x z 


— ■ 


— f 


<> nuneriques ! 


! 1C ! 


28 


! 00011100 


! 7168 


f s 1 I: 


i\ 


— ! 


J 


< par exeaple! 


! ID ! 


29 


• 00011101 


! 7424 






— ! 


ORA-A, X ! 


AND IF X>=12 ! 


! IE ■ 


30 


! 00011110 


• 7680 


r 5 ! I j 




- ! 


ASL-A, X ! 


OR TYGN. - . ! 


» IF ! 


31 


1 00011111 


! 7936 


us ! 1 1 




— ! 


I 


HOD ! 


f 20 ! 


32 


! 00100000 


! 8192 




— 


- \ 


JSR 1 


s\ 1 


! 21 ! 


33 


! 00100001 


! 8448 


1 i 1 


• 1 


- ! 


AND-(I,X) ! 


Non utilise ! 


! 22 ! 


34 


! 00100010 


! 8704 


m IT 


[a 


- ! 




( DIM A*(3) ! 


! 23 ! 


35 


• 00100011 


! 8960 


# iii 


[# 


— ■ 


! 


, A«(3,3)! 


! 24 ! 


36 


! 00100100 


! 9216 


$ j ii 


;$ 


1 — ! 


BIT-ZP ! 


THEN IFX=3THEN10! 


■ 25 ! 


37 


; ooiooioi 


! 9472 


X ! Is 


\X 


— ! 


AND-ZP ! 


THEN IFX=3THENA=2! 


! 26 ! 


38 


! 00100110 


! 9728 


& ! I 1 




— ! 


ROL-ZP ! 


, INPUTST-,A»! 


! 27 ! 


39 


1 00100111 


! 9984 


y 1 T ' 




— ■ 


1 


, IMPUT"ST",A! 


! 28 ! 


40 


! 00101000 


! 10240 


< ! Is 


{ < 


— ! 


PLP ! 


Dtbut ! 


! 29 ! 


41 


• 00101001 


! 10496 


) ill 


» ) 


1 — ! 


AND-Ia ! 


Fin! 


! 2A ! 


42 


! 00101010 


! 10752 


$ J j j 


>y 


- ! 


ROL 


( At (3) ! 


! 2B ■ 


43 


1 00101011 


! 11008 


+ II; 


■ >f> 


— 1 


1 


Non utilise ! 


! 2C ! 


44 


! 00101100 


! 11264 


f * 


» f 


- ! 


BIT-A ! 


Non utilise ! 


! 2D ! 


45 


■ 00101101 


1 11520 






- ! 


AND -A ! 


( A(3>! 


! 2E ! 


46 


1 00101110 


! 11776 1 


, j 


> m 


1 — 1 


ROL -A ! 


PEEK ! 


! 2F ! 


47 


! 00101111 


! 12032 


/ - X i 


1 / 


- ! 


! 


RND ! 


! 30 • 


48 


! 00110000 


! 12288 


! Is 


►0 

1 V 


- ! 


BMI ! 


SGN ! 


! 31 ! 


49 


■ 00110001 


! 12544 


1 ! Ii 


. 1 
■ X 


- ! 


AND-(I),Y ! 


ABS ! 


• 32 ! 


50 


! 00110010 


! 12800 


1 1 I ! 


1 1 


1 - 1 


1 


PDL ! 


! 33 ! 


51 


! 00110011 


1 13056 


3 1 l! 
\f x « 


j3 


1 — 1 


! 


Non utilise ! 


! 34 ! 


52 


! 00110100 


! 13312 


4 1 I: 




- ! 


1 


( DIM A(3> 1 


! 35 ! 


53 


1 00110101 


! 13568- 


5 ! Ii 


:5 


— ! 


AND-ZP, X ! 


+ A=+3! 


! 36 ! 


54 


! 00110110 


1 13824 


6 ! I 


:6 


- ! 


ROL-ZP p X ! 


A=-3! 


! 37 ! 


55 


! 00110111 


! 14080 


7 ! Is 


:7 


***■ ! 




NOT ! 


! 38 • 


56 


! 00111000 


! 14336 


8 ! I: 


:8 




SEC ! 


( ■ 


! 39 ! 


57 


! 00111001 


! 14592 


9 i Ii 


:9 




AND-A, Y ! 


= IFA«="C"THEN. . ! 


! 3A ! 


58 


! 00111010 


! 14848 


* I T « 

* ii 


■ • 

1 m 






* IFASfC-THEN. . ! 


! 3B ! 


59 


! 00111011 


! 15104 


■ IT* 
f *' 


1 ■ 
» 9 






LEN( ! 


! 3C ♦ 


60 


! 00111100 


! 15360 


< ! Is 


!< 






ASC( ! 


! 3D ! 


61 


! 00111101 


! 15616 








AND-A, X ! 


SCRN< 1 


! 3E ! 


62 


! 00111110 


! 15872 


> i i! 


:> 




ROL-A,X 


, SCRN(3,S)! 


« 3F ! 


63 


! 00111111 


! 16128 


? ! Ii 


:? 






( ! 



TABLEAU 2 ($40 a «7F) 



1 

HEXA! 


DEC 


BINAIRE 


!DEC*256 


'ASCII 


!ECRAN! 


TOUCH! 


□PCODE-6502! 


TOKEN 


INTEGER 


1 


j 





1 


i 


! 


! 


1 


1 






40 ! 


64 


01000000 


! 16384 


! S 


! F: 


:9 ! 


— ! 


RTI ! 


% 


A* 


41 ! 


65 


01000001 


! 16640 


' A 


! F: 


iA ! 


— ! 


EOR-<I,X> ! 


Hon utilise 


42 ! 


66 


01000010 


! 16896 


1 B 


! F: 


:B ! 


— ! 


i 


( 




43 ! 


67 


01000011 


! 17152 


1 C 


! F 


:C ! 


— ! 


— — i 






44 ! 


68 


01000100 


! 17408 


1 D 


! F: 


:D ! 


- ! 


J 






45 ! 


69 


01000101 


! 17664 


E 


! F: 


:E ! 


— i 


EOR-ZP ! 


» 




46 ! 


70 


01000110 


! 17920 


' F 


! F: 


:F ! 


— i 


LSR-ZP 


; 




47 ! 


71 


01000111 


! 18176 


1 G 


! F: 


:G 


— ! 




; 




48 1 


72 


01001000 


! 18432 


1 H 


! F: 


:H ! 


- \ 


PHfl ! 


, 




49 ! 


73 


01001001 


! 18688 


' I 


! F: 


:I 


— j 


EOR-Ia 1 






4A > 


74 


01001010 


! 18944 


1 J 


! F: 


:J ! 


— 1 


LSR ' 






4B ! 


75 


01001011 


! 19200 


1 K 


! F: 


:K ! 


— ! 


— i 


TEXT 




4C ! 


76 


010011Q0 
01001101 


! 19456 


1 L 


! F: 


sL ! 


- j 


JMP-A 


6R 




4D ' 


77 


! 19712 


1 M 


! F 


:M ! 


- i 


EOR-A 


C^-L 




4E ! 


78 


01001110 


! 19968 


N 


! Fi 


:N 




LSR-A ! 


DIM 


DIM A*<3) 


4F ! 


79 


01001111 


i 20224 





! F: 


:0 ! 


- 





DIM 


DIM A(3> 


50 ! 


80 


01010000 


! 204B0 


1 P 


! F: 


:P ! 


- ! 


BVC ! 


TAB 




51 ! 


81 


01010001 


! 20736 


Q 


! F 


;Q 


— ; 


EOR-(I>,Y ! 


END 




52 ! 


82 


01010010 


! 20992 


! R 


! F: 


;R 


— ! 


i 


IWUT 


INPUT A* 


53 ! 


83 


01010011 


! 21248 


S 


! F: 


:S 


- i 


i 


IWUT 


INPUT"T",A« 


54 ! 


84 


01010100 


! 21504 


1 T 


! F: 


:T ! 


- ! 


! 


iwut 


INPUT A 


55 ! 


85 


01010101 


! 21760 


! U 


! F 


:U 


\ _ i 


EOR-ZP, X ! 


FOR 




56 • 


86 


01010110 


! 22016 


! V 


! F 


iV 


— I 


LSR-ZP, X ! 


FOR 1=1 TO 3 


57 ! 


87 


01010111 


! 22272 


1 M 


! F 


:W 


— ! 


— - ! 


TO 




58 ! 


88 


01011000 


! 22528 


' X 


! F 


:X 


- ! 


CLI ! 


STEP 




59 ! 


89 


01011001 


! 22784 


1 Y 


! F 


:Y 


- ! 


EOR-A, Y ! 


NEXT 




5A ! 


90 


01011010 


! 23040 


1 Z 


! Fi 


iZ 


i _ i 


j 


§ 


NEXT I.J 


SB * 


91 


01011011 


! 23296 


1 C 


! F: 


iC 


— I 


— i 


RETURN 


5C ! 


92 


01011100 


! 23552 


! \ 


! F 


:\ 


— j 


i 


GOSUB 




5D ! 


93 


01011101 


! 23808 


1 3 


! F: 


i) 


— ! 


EOR-A, X ! 


REM 




5E ! 


94 


01011110 


! 24064 


1 


! F: 




\ _ i 


LSR-A, X 


LET 




5F ' 


95 


01011111 


! 24320 




! F: 




i — i 




GOTO 




60 ! 


96 


01100000 


! 24576 




! Fi 




- ! 


RTS ! 


IF 




61 ! 


97 


01100001 


! 24832 


1 a 


! F: 


■ 1 


— ! 


ADC-(I,X) ! 


PRINT 


PRINT A* 


62 ! 


98 


01100010 


! 25088 


1 b 


! Fi 


t u 


— i 


j 


PRINT 


PRINT A 


63 ! 


99 


01100011 


! 25344 


! c 


! F 


it 


i — i 


■ 


PRINT 


PRINT 


64 ! 


100 


01100100 


! 25600 


1 d 


! F 


:* 


i _ i 


j 


POKE 




65 ! 


101 


01100101 


» 25856 


1 e 


! F 


:X 


i — i 


ADC-ZP ! 


• 


POKE 3,3 


66 ! 


102 


01100110 


! 26112 


1 f 


! F 


;& 


— j 


ROR-ZP ! 


COL0R= 


67 ! 


103 


01100111 


! 26368 


1 9 


! F: 


, > 


- i 


i 


PLOT 




68 ! 


104 


01101000 


! 26624 


! h 


! Fi 


: ( 


! — J 


PLA ! 




PLOT 3,3 


69 ! 


105 


01101001 


! 26880 


! i 


! F: 


:) . 


1 — ! 


ADC-In ! 


HLIN 




6A ! 


106 


01101010 


! 27136 


! j 


! F 


:* 


— " 


ROR ! 




HLIN 3,5 AT 


6B 1 


107 


01101011 


! 27392 


1 k 


! F 


: + 


— i 


i 


AT 


HLIN 3,5 AT 


6C ! 


108 


01101100 


! 27648 


1 1 


! Fi 


• » 


— i 


JMP-(I) 


VLIN 




6D 1 


109 


01101101 


! 27904 


m 


! F 




— " 


ADC-A i 


» 


VLIN 3,5 AT 


6E ! 


110 


01101110 


! 28160 


\ n 


! Fi 


! m 


! — 1 


ROR-A ¥ 


AT 


VLIN 3,5 AT 


6F ! 


111 


01101111 


! 28416 


1 o 


! F: 


:/ 


— ! 


i 


VTAB 




70 ! 


112 


01110000 


! 28672 


1 P 


! F 


:0 


— ! 


BVS ! 




A*="HELLO" 


71 ! 


113 


01110001 


! 28928 


1 9 


! F: 


!l 


— i 


ADO(I>,Y ! 




A=3 


72 ! 


114 


01110010 


! 29184 


! r 


! F: 


:2 


1 — ! 


- — ! 


) 




! 73 ! 


115 


01110011 


! 29440 


1 s 


! F 


:3 


i _ i 


! 


Non utilise 


! 74 ! 


116 


01110100 


! 29696 


! t 


! F 


:4 


i — j 


i 


LIST 


LIST 3,5 


1 75 ! 


117 


01110101 


! 29952 


1 u 


! F 


iS 


- j 


ADC-ZP, X ! 




LIST 3,5 


• 76 ! 


118 


01110110 


! 30208 


! v 


! F 


:6 


i _ i 


ROR-ZP, X ! 


LIST 


LIST 


! 77 ! 


119 


01110111 


! 30464 


1 N 


! F 


:7 


- ! 


— i 


POP 




! 78 ! 


120 


01111000 


! 30720 


! x 


! F 


;8 




SEI i 


NODSP 


NODSP A* 


! 79 ! 


121 


01111001 


! 30976 


' y 


! F 


:9 




ADC-A, Y « 


NODSP 


NODSP A 


' 7A ! 


122 


01111010 


! 31232 


! z 


! Fi 


i • 

1 * 






NOTRACE 


! 7B ! 


123 


01111011 


! 314B8 


' I 


! F: 


■ * 

1 9 






DSP 


DSP A* 


! 7C ! 


124 


01111100 


! 31744 


i ■ 
■ 


! F: 


!< 






DSP 


DSP A 


! 7D ! 


125 


01111101 


! 32000 


■ > 


! F 






ADC- A, X ! 


TRACE 




! 7E ! 


126 


01111110 


! 32256 


1 1* 


! F: 


!> 




ROR-A, X 


PR* 




.' 7F ! 


127 


01111111 


! 32512 


1 rub 


! F 


:? 






IN* 





TABLEAU 3 (*80 a *BF) 



IHEXA! 

1 1 


DEC ! 


BINAIRE 


!DECt256 i ASCII 




1 

TOUCH 


OPCODE-6502! 


— — 

TOKEN APPLESOFT 


! 80 ! 


128 ! 


10000000 




i 


mil 

V 1 Ul 




•a < 


\ 


I 


END 


! 81 ' 


129 ! 


10000001 


I 33024 


, 


9M 1 


N« 

i 


•A 


CA 


STA-<I,X) ! 


FOR 


! 82 ! 


130 ! 


10000010 


1 33280 


j 


cfv 




»R 


CB 


— ! 


NEXT 


! 83 ! 


131 ! 


10000011 


! 33536 


i 


cr la 


M< 

1^ 1 




CC 1 


i — i 


DATA 


! 84 ! 


132 ! 


10000100 




j 




N< 

i 


i mJ 


CD 


STY-ZP ! 


INPUT 


' 85 ! 


133 ! 


10000101 


1 34049 


i 


ann 
ci 114 




■ i— . 


CE 


STA-ZP ! 


DEL 


1 86 1 


134 ! 


10000110 


0"Ov*t 


i 


ark 


1^ 1 


>F 

■ r 


CF 


1 STY-ZP ! 


DIM 


' 87 ! 


135 ! 


10000111 


i 345A0 


i 


LJCTJ. 


N« 


•R 

p M 


C6 


i i 


READ 


1 8B ! 


136 ! 


10001000 


■ 3481 A 


■i 


he 

LI 3 




■ n 


CM 


DEY 


SR 


89 ! 


137 ! 


10001001 


I TSH72 


i 


n 




T 
1 


CI 


i i 


TEXT 


' 8A ! 


138 ! 


10001010 


i 3*=532n 


t 


1 X 
1 T 


n i 


it/ 


CJ 


' TXA 


PR# 


! 8B 1 


139 ! 


10001011 


1 TTOU 


i 


wf 

VI 


> M< 

ni 


■ If 


CK 


i i 


IN* 


1 BC ! 


140 ! 


10001100 


1 -TOiA 




XX 
TT 


Mi 
Hi 


.1 
■ 1_ 


CL 


1 STY-A ! 


CALL 


8D ! 


141 ! 


10001101 


i TA09A 

JOV/O 


t 


cr 


> M 
i^ 


»M 

■ n 


CM 


' STA-A ! 


PLOT 


1 8E ! 


142 ! 


10001110 


1 3A3S2 


i 




1 N 
i^ 


»M 


CN 


1 STX-A 1 


HLIN 


• 8F ! 


143 ! 


10001111 


1 3AAOA 

JQDVD 


( 


al 


> M 


■ u 


CO 


i i 


VLIN 


• 90 ! 


144 ! 


10010000 


I TARA4 


; 


HI » 




>p 


CP 


1 BCC ! 


H6R2 


91 ! 


145 ! 


10010001 


I 37120 


; 


OLi 


n i 


■ lac 


CS 


! STA-<I),Y ! 


H6R 


1 92 ! 


146 ! 


10010010 


i 3737 A 
o/o/o 




Hi-2 




■ R 
i n 


CR 


i i 


HC0L0R= 


' 93 ! 


147 ! 


10010011 


1 37A32 




dr3 




>c 

■ w 


CS 


1 ! 


HPL0T 


1 94 ! 


148 ! 


10010100 


i 37688 




Hc4 




»T 
i i 


CT 


STY-ZP, X ! 


DRAM 


! 95 ! 


149 ! 


10010101 


1 3R144 




1 lOK 


1 N 


■ u 


CU 


1 STA-ZP.X ! 


XDRAM 


! 96 ! 


150 ! 


10010110 


1 3R400 




evn 


1 N 


■ ▼ 


CV 


' STX-ZP.Y ! 


HTAB 


' 97 ! 


151 ! 


10010111 


i 38^5^ 








■ w 


CM 


! ! 


HOME 


1 98 ! 


152 ! 


10011000 






ran 

Ldfi 


ni 


i y 

i A 


CX 


1 TYA ! 


R0T= 


99 ! 


153 ! 


10011001 


1 391AR 






i^ i 


»Y 


CY 


1 STA-A, Y ! 


SCALE= 


! 9A ! 


154 ! 


10011010 


1 39474 


i 


eiih 




■ Mm 


CZ 


1 TXS ! 


SHL0AD 


! 9B ! 


155 ! 


10011011 


1 39A80 


t 


OCT 




. r 

i L 


esc 


i i 


TRACE 


! 9C ! 


156 ! 


10011100 


1 3QQ3A 


t 


T i> 




p \ 





i i 


NDTRACE 


90 ! 


157 ! 


10011101 


1 40192 


! 


net 




1 
J 


CSM 


1 STA-A, X ! 


NORMAL 


' 9E ! 


158 ! 


10011110 


i 40448 


1 


■ 3 




» Ai 


CSN 


i i 


INVERSE 


' 9F ! 


159 ! 


10011111 


i 40704 


I 


1 IC 


l^a 







i i 


FLASH 


1 AO ! 


160 ! 


10100000 


i 40960 


1 




t ftj. 

1^1 


i - 


esp 


1 LDY-I* i 


C0L0R= 


Al ! 


161 ! 


10100001 


1 4121A 


1 


I 


N- 


1 


SI 


1 LDA-(I,X) ! 


POP 


1 A2 ! 


162 ! 


10100010 


1 4 1 472 


1 


ii 


i m< 


► 11 


S2 


1 LDX-Im ! 


VTAB 


A3 ! 


163 ! 


10100011 


i 41728 


I 






■ ^ 


S3 


! 


HIMEM: 


! A4 ! 


164 ! 


10100100 


t 41984 


I 


* 


i^i 




S4 


1 LDY-ZP ! 


L0MEM: 


A5 ! 


165 ! 


10100101 


1 42240 


1 




i^ i 


■ A 


SS 


1 LDA-ZP ! 


0MERR 


! M> ! 


166 ! 


10100110 


1 4249A 


! 




■ M 


■ « 


S6 


1 LDX-ZP ! 


RESUME 


A7 ! 


167 ! 


10100111 


* 427S2 


( 


> 






S7 


i i 


RECALL 


1 A8 ! 


168 ! 


10101000 




1 


/ 
\ 


nil 


i 

1 


SS 


1 TAY ! 


STORE 


A9 ! 


169 ! 


10101001 


1 432A4 


1 


) 

/ 


i Mi 


i \ 

i / 


S9 


1 LDA-Ia ! 


SPEED= 


1 AA ! 


170 ! 


10101010 


• 43^20 


; 




1 M a 


I * 
• *> 


S: 


1 TAX ! 


LET 


AB ! 


171 ! 


10101011 


1 4377 A 


; 




< M 


> ^ 


s; 


i i 


60TB 


1 AC ! 


172 ! 


10101100 


* 44032 






> M< 


5 J 


9 


' LDY-A 


RUN 


AO ! 


173 ! 


10101101 




i 




■ M 






' LDA-A ! 


IF 


1 AE ! 


174 ! 


10101110 


* 44S44 


i 


■ 


■ M> 
Pit 


i ■ 


9 


1 LDX-A ! 


RESTORE 


AF ! 


175 ! 


10101111 






/ 


1 M< 


i / 


/ 


i i 


k 


! BO ! 


176 ! 


10110000 


i 4 SOS 


i 


V 


■ M 







1 BCS ! 


GOSUB 


Bl ! 


177 ! 


10110001 


• 4S312 


* 


1 


■ M< 


> i 
i 


1 


1 LDA-<I>,Y ! 


RETURN 


B2 ! 


178 ! 


10110010 


1 4S e 5Afl 

tJJOO 


t 


z 


1 M 


■ o 

■ 


2 


i i 


REM 


B3 ! 


179 ! 


10110011 


* 4SA24 




o 


■ M 


■ O 


3 


i i 


STOP 


1 B4 ! 


180 ! 


10110100 




i 




■ M< 


• 4 


4 


1 LDY-ZP, X ! 


ON 


B5 ! 


181 ! 


10110101 


i 46336 




5 


1 N 


■ *j 


5 


1 LDA-ZP, X ! 


MAIT 


1 B6 ! 


182 ! 


10110110 


! 46592 


i 


6 


1 N 


ib 


6 


' LDX-ZP, Y ! 


LOAD 


B7 ! 


183 ! 


10110111 


1 46848 




7 


1 N 


:7 


7 


i i 


SAVE 


! B8 ! 


184 ! 


10111000 


! 47104 


t 


8 


1 N 


:8 


8 


1 CLV ! 


DEF 


B9 J 


185 ! 


10111001 


! 47360 


t 


9 


! N: 


s9 


9 


1 LDA-A, Y ! 


POKE 


BA f 


186 ! 


10111010 


! 47616 




• 


! N 


■ ■ 


s 


1 TSX 


PRINT 


8B ! 


187 ! 


10111011 


! 47872 




■ 

9 


1 Ni 


I a 
1 » 


■ 

t 




C0NT 


! 8C ! 


188 ! 


10111100 


! 48128 


i 


< 


1 N 


:< ! 


< 


1 LDY-A, X ! 


LIST 


BD ! 


189 ! 


10111101 


1 48384 


i 




1 N: 






' LDA-A, X ! 


CLEAR 


BE ! 


190 ! 


10111110 


! 48640 


i 


> 


1 N: 


> 


> 


1 LDX-A,Y ! 


BET 


BF ! 


191 ! 


10111111 


» 48896 


i 


7 


1 N: 




7 




MEN 



^44 



Pom's n°4 



TABLEAU 4 <$C0 a *FF> 



'HEX A 1 
i ; 


1 

DEC • 
1 


BINAIRE 


1 • 

!DEC*256!ASCII 
i ■ 


IECRAN' 


TOUCH 


'0PC0DE-6502! 

i 1 


TOKEN APPLESOFT 


! CO ! 


192 ! 


11000000 


I 49152 I 9 


i M< 

nj 




— 

SP 


' CPY-Id ! 


TAB( 


! CI ! 


193 ! 


11000001 


! 49408 ! A 


1 M< 

N! 


SH 


A 


' a«»-<i,x) » 


TO 


! C2 ! 


194 ! 


11000010 


! 49664 ! B 


i hit 

Ni 


>R I 
iD 


B 




FN 


! C3 ! 


195 ! 


11000011 


! 49920 « C 


ni 




C 




SPC( 


! C4 ! 


196 I 


11000100 


• 50176 ! D 


1 M< 
N < 




D 


' CPY-2P ! 


TfEN 


! C5 ! 


197 i 


11000101 


! 50432 ! E 


■ M< 
Ni 






CMP-ZP ! 


AT 


! C6 ! 


198 ! 


11000110 


• 50688 ! F 


1 M< 

Ni 




F 


DEC-ZP ! 


NOT 


! C7 ! 


199 ! 


11000111 


• 50944 ! 8 






G 




STEP 


! C8 ! 


200 ! 


11001000 


! 51200 ! H 


1 M< 

n \ 


sn 


H 


1 INY ! 


+ 


» C9 ! 


201 ! 


1 1001001 


! 51456 ! I 


1 Mi 
N! 


» T 1 


I 


CMP- In ! 


— 


! CA ! 


202 ! 


11001010 


• 51712 ! J 


I M< 


id - 


J 


1 DEX ! 


t 


• CB ! 


203 ! 


11001011 


! 51968 ! K 


I M< 

n \ 


Sis . 


K 


i i 


/ 


! CC ! 


204 : 


11001100 


! 5224 ! L 


1 M< 
Ni 


>J 1 
ii_ . 


L 


! CPY-A ! 




! CD ! 


205 ! 


11001101 


! 52480 ! M 


■ M< 
N < 


sn 


M 


1 CMP-A ! 


AND 


! CE ! 


206 ! 


11001110 


! 52736 ! N 


■ M< 

n i 


>M 1 
iN 


N 


! DEC-A ! 


OR 


t CF ! 


207 ! 


11001111 


! 52992 ! 


■ M< 


ill 







> 


! DO ! 


208 • 


11010000 


! 53248 ! P 


■ M< 


»p 1 

i r 


P 


! BNE ! 


= 


! Dl ! 


209 ! 


11010001 


■ 53504 ! Q 


■ M 
N 


Six 


Q 


! CHP-(I),Y ! 


< 


! D2 ! 


210 ! 


11010010 


! 53760 ! R 


■ M< 

n s 




R 


r i 


SBN 


! D3 ! 


211 ! 


11010011 


• 54016 ! S 


i Mi 


» Q ■ 


S 


! — ! 


INT 


! D4 ! 


212 ! 


11010100 


! 54272 ! T 


■ M< 

n \ 


• T 1 
E 1 


T 


I < 


ABS 


! DS ! 


213 ! 


11010101 


! 54528 ! U 


■ M 

n 


• i i i 


U 


! CMP-ZP, X i 


USR 


• D6 ! 


214 ! 


11010110 


! 54784 ■ V 


I ki 

n 


i V 


V 


! DEC-ZP, X ! 


FRE 


! D7 ! 


215 ■ 


11010111 


! 55040 • M 


■ M 


•y i 
■if 


H 


i i 


SCRN( 


! D8 ! 


216 ! 


11011000 


! 55296 • X 


l Mi 


» Y I 


X 


i ao ! 


PDL 


! D9 ! 


217 • 


11011001 


! 5bb&2 ! Y 


■ M 


• V 1 


Y 


! CMP-A, Y > 


POS 


! DA ! 


218 ! 


11011010 


• 55808 ! Z 


■ Mi 




Z 


i i 


SOR 


! DB ' 


219 • 


11011011 


1 56064 ! 1 


> Mi 






! 1 


RND 


! DC ! 


220 • 


11011100 


• 56320 ! \ 


■ M< 


\ i 




1 — 1 


L06 


! DD '. 


221 « 


11011101 


! 56576 ! 1 


I Mi 


» 1 1 


SM 


! CNP-A,X ! 


EXP 


! DE ! 


222 ! 


11011110 


! 56832 ! * 


■ M< 


■ i 


SN 


! DEC-A, X ! 


COS 


! DF ! 


223 ! 


11011111 


• 57088 ! 


1 Mi 









SIN 


■ EO ! 


224 ! 


11100000 


■ 57344 ! 


■ Mi 


- , 


— _ 


! CPX-Im ! 


TAN 


! El ! 


225 ! 


11100001 


! 57600 ! a 


■ Mi 


» I 1 





! SBC-(I,X) ! 


ATN 


! E2 ! 


226 ! 


11100010 


! 57856 ! b 


■ Mi 


i I 


^ — - 


1 1 


PEEK 


! E3 ! 


227 ! 


11100011 


• 58112 ! c 


■ M 


• ft I 





1 — i 1 


LEN 


! E4 ! 


228 ! 


11100100 


• 58368 ! d 


1 M< 







! CPX-ZP ! 


STR$ 


! E5 ! 


229 ! 


11100101 


! 58624 ! e 


■ M 


I Am 





! SBC-ZP ! 


VAL 


! E6 ! 


230 ! 


11100110 


! 58980 J f 


1 fli 

a 


* <K 





! INC-ZP ■ 


ASC 


! E7 ! 


231 ! 


11100111 


! 59136 ! g 


1 Mi 


» * \ 


— _ 


1 1 


CMR* 


! E8 ! 


232 ! 


11101000 


! 59392 ! h 


1 Mi 







! INX ! 


LEFT* 


! E9 ! 


233 ! 


11101001 


! 59648 ! i 


■ Mi 







! SBC-Id ! 


RIGHT* 


! EA ! 


234 • 


11101010 


■ 59904 ! j 


■ M* 


* I 





1 NOP ! 


HID* 


! EB ! 


235 ! 


11101011 


■ 60160 ! k 


1 M 
N 







i — i 




! EC ! 


236 • 


11101100 


r 60416 ! 1 


■ M« 
Nt 







! CPX-A ! 





1 ED ! 


237 ! 


11101101 


! 60672 ! m 


1 Mi 







! SBC-A ! 




! EE ! 


238 ! 


11101110 


« 60928 ! n 


> Mi 


> ■ 


■ 


! INC-A ! 





! EF ! 


239 ! 


11101111 


! 61184 ! o 


I Mi 


► / 





i i 





! FO ! 


240 ! 


11110000 


! 61440 ! p . 


> M« 
N \ 


»n i 

IKJ : 





! BEG ! 





! Fl ! 


241 ! 


11110001 


! 61696 ! q 


■ Mi 
NS 







! SBX-(I),Y ! 





! F2 ! 


242 ! 


11110010 


! 61952 ! r 


■ M< 
NS 




— — 







• F3 ! 


243 ! 


11110011 


> 62208 ' s 


1 M< 
N \ 


so . 


— — 


1 1 1 





! F4 ! 


244 ! 


11110100 


' 62464 ! t 


1 M< 
N! 


» A 1 





1 t 





• F5 ! 


245 ■ 


11110101 


! 62720 ! u 


■ M< 


■ ZM 





! SBC-ZP, X j 





• F6 ! 


246 ! 


11110110 


! 62976 ! v 


! Ni 


lb ! 


— — 


! INC-ZP, X ! 





! F7 ! 


247 ! 


11110111 


! 63232 ' m 


! N: 


:7 ! 


. 


! ! 





! F8 ! 


248 ! 


11111000 


! 63488 1 x 


! N: 


:8 ! 




! SED ! 




! F9 ! 


249 ! 


11111001 


! 63744 ! y 


! N: 


:9 ! 




SBC-A, Y 




j FA ! 


250 ! 


11111010 


! 64000 ! z 


! N: 


• 1 






! FB ! 


251 ! 


11111011 


! 64256 ! 1 


! N: 


i ■ 1 








! FC ! 


252 ! 


11111100 


! 64512 ! ! 


1 N: 


< ! 








! FD ■ 


253 ! 


11111101 


! 64768 ! > 


1 N: 






' SBC-A, X ! 




! FE ! 


254 ! 


11111110 


! 65024 ! ' u 


1 N: 


> \ 




1 INC-A, X ! 




! FF ! 


255 ! 


11111111 


! 65280 1 rub 


1 N: 


:? ! 









Pom's n°4 



et tu inventeras" 

Uhomme invente de plus en plus. Et de mieux en mieux 
Pour repousser les limites du possible, fl. s'est fabiique des outils a sa mesure. 
L'ordinateur personnel Apple en est un* 

Rappelez-vous. II n y a pas si longtemps, 
Tordinateur personnel c'etait un reve. Aussi fou 
que de vouloir posseder son propre vaisseau 
spatial 

Et puis il y eut Apple. 
Linfonnatique independante, abordable (un 
Apple coute moins quun simple photocopieur) 
et accessible (on apprend a s'en servir en quelques 
heures), 

Un Apple ne vient jamais seuL Avec lui, vous 
dispose: d une bibliotheque de programmes avec 
lesquels vous pouvez vous mettre tout de suite au 
travail. Sans avoir a apprendre le langage 
informatique, 

Un Apple, c'est le meilleur moyen d'aller plus vite et plus loin. D'etre creatif sans aucune contrainte. 
De regagner le temps perdu en taches repetitives, en routine. D'aller jusqu au bout de chaque nouvelle 
idee* De r^devenir inventif a 100 °/o. 




Vous faut - il d'autres bonnes raisons? 



Alors, examinez une de vos 
journees de travail, vous en 
trouverez. Mais si vous savez deja 
quun ordinateur pereonnel peut 
vous faire du bien, documentez^vous 
(voyez le bon a croquer Apple au bas 
decettepage), 

Et gardez bien en tete que votre 
ordinateur personnel doit disposer de 
programmes pour vos travaux 
nabituets. Et qu'il doit etre capable de 
grandir en fonction de vos besoins 
(Apple dispose de plus d'accessoires 
que n'importe quel autre ordinateur 
personnel). 

Choisissez aussi un ordinateur 
celfcbre et qui a fait ses preuves : 
400.000 Apple fonctionnent chaque 
jour dans le monde. C'est la 
meilleure preuve de leurs hautes 
performances et la certitude d'un 
service disponible sur le champ. On 
ne devient pas c6tebre par hasard 




Un Apple, c'est vrai, change les fagons 
de iravaillende penser, de decider, 
A vous de decider. 



BON A CROQUER 

SEEDRIN | 

Avenue de POceanie ZJ. de Courtabeuf 
91944 LES ULIScedex 

D Que lire? Si vous voulez vous familiariser avec 
le monde de Tordinateur personnel a travers la litterature Apple et les 
revues specialisees, cochez cette case, 

□ Enfrancais □ En anglais 

□ Si vous ne pouvez plus attend re, cochez certe case pour recevoir la 
liste des revendeurs agrees Apple. 

Nom 

S ociete . 

A dresse . 

Code postal 



ricippkz 

™ Pordina 



Pordinateur personnel 



ROBOTURR 

BY SILAS EARNER 



PRESS RETURN T 



Jm 



COPYRIG 



!!1MUSE 



SOFTWARE tM 



Comment realiser un programme ? Tout d 1 abord, 
il f aut def inir la strategie du robot • 
Comment va-t-il se deplacer ? Que faire 
lorsqu'il est touche ? Ou tirer ? Ehsuite, il 
convient de bien etudier le langage et les 
possibilites du robot. Vous disposes en effet 
d 1 instructions simples vous permettant 
d r effectuer des operations, de tester, de 
faire des boucles. Votre robot dispose de 
regis tres permettant de commander sa vitesse 
en Y, de savoir quelle est sa 
de commander le radar dans une 
de tirer un projectile (tir 
direction et en longueur) et 
de connaitre sont taux 
(etes-vous la cible d'un 



en X et 
position, 
direction, 
reglable en 
egalement 
d 1 endommagement 
robot concurrent 



R0B01WAR - De Silas Warner - MUSE SOFTWARE 
Prix indicatif : 350 FF TTC 

Lorsque j'ai achete Robotwar (la guerre des 
robots), il y a un peu moins d'un an, je ne 
me doutais pas de ce qui m'attendait I Sous 
des apparences de jeu innocent, se cache un 
programme diabolique qui peut ruiner votre 
sante si vous y passez vos nuits ! 

De quoi s'agit-il au juste ? De concevoir un 
programme pour votre robot afin de le faire 
combattre avec d r autres robots (et de gagner, 
bien sur ! ) . Le combat se deroule dans un 
lieu clos de 250m sur 250m, dans lequel les 
robots ont tout loisir de se deplacer. Vous 
contemplez la scene de votre poste 
d 'observation, situe au dessus du lieu de 
bataille et separe de lui par une vitre 

epaisse afin d'etre a l'abri des projectiles 
tires par les robots ! La partie droite de 
l'ecran est un tableau de controle vous 
donnant la liste des robots engages, leur 
representation graphique, le pourcentage des 
dommages (suivant les projectiles regus) et 
leur score. 



Le programme est entre et modifie grace a un 
editeur incorpore . II doit ensuite etre 
assemble pour etre compris par le robot. Vous 
pouvez alors evaluer sa performance grace a 
un banc de test ultra perfectionne dane 
excellente idee). Lorsque tout est pret, 
choisissez les adversaires de votre robot et 
enfermez-les tous ensemble. Le robot ayant la 
meilleure tactique et le programme le plus 
evolue l'emportera. A noter que vous pouvez 
effectuer plusieurs combats de suite afin 
d 1 avoir une evaluation plus complete de votre 
robot. Ces combats peuvent se derouler de 
fagon entierement automatique, ce qui permet 
par exemple d 1 en faire effectuer 40 durant la 
nuit. Et vous decouvrez au matin les scores 
respectifs ! 

Ce jeu rejouira tous les fervents de 
strategie et de progratnmation optimisee. Che 
idee originale, une realisation sans f aille, 
cela donne un "best-seller". Compte tenu de 
la concurrence, Robotwar a obtenu une tres 
honorable 20eme place dans le classement de 



tous les logiciels sur Apple parus depuis 
novembre 1980, classement effectue par 
Softalk aupres de ses lecteurs . 

II parait meme qu'un championnat du monde a 
eu lieu aux Etats-Uhis. Malheureusement, je 
l'ai su trop tard, sinon leur compte etait 
bon, a ces Yankees . . , Mais pourquoi pas un 
championnat de France ? Si vous etes 
interesse, ecrivez-moi et surtout programmez 
un robot redoutable. Nous en reparlerons dans 
un prochain Pom T s et tacherons d 1 organiser 
quelque chose d 1 ici la fin de l'annee. 

A vos robots ! 



Jean-Frangois Duvivier, 1 rue du Sergent 
iBlandan, 92130 Issy-les-Moulineaux. 

*s n° 4 




ROBOTS > 
TOP 



Un PRINT USING 
d'interet general 



L'une des instructions BASIC qui manque le 
plus a 1' Applesoft est le PRINTUSING. Le 
programme que nous presentons permet de 
pallier son absence. Bcrit en Applesoft, il 
occupe les lignes 40000 a 40044. Afin d r avoir 
le moins d 1 interaction possible avec le 
programme principal, il n 1 utilise que des 
variables de deux lettres commencant par Z. 

La valeur a ecrire doit etre placee dans la 
variable ZZ. le masque de sortie est defini 
par ZZ$. L'appel se fait par un G0SUB 40000. 
Le sous-programme effectue la sortie 
formattee sur le peripherique en service au 

moment de l'appel (ecran, imprimante ) et 

rend la main sans generer de retour a la 
ligne. 

Le masque peut etre compose de quatre 
caracteres differents : l'espace, le#, le . 
et „ las espaces ne peuvent etre 

incorpores qu 1 avant ou apres les autres 
caracteres, mais ne peuvent pas etre 
incorpores a l'interieur de ces caracteres. 
Ces espaces seront automatiquement avant ou 
apres le nombre formate . 

#definit un chiffre; 

. donne 1 Emplacement de la virgule; 

/va»/\/v indique une sortie avec notation 

scientif ique de la forme E +ou- et deux 

chif f res . 

Les exemples donnes dans le tableau vous 
permettront de mieux comprendre le 
fonctionnement de ce programme. A noter que : 

- aucun retour a la ligne n'est genere; 

- les zeros en tete ne sont pas inscrits ; 

- en cas de necessite, des zeros seront 
ajoutes a la fin afin de remplir le masque; 

- en cas de necessite (precision du chiffre 
superieure au masque) , le nombre sera arrondi 
au plus proche; 

si le nombre est negatif, l'une des 
positions ^ est prise pour le signe; 

- si il y a plus ou moins de quatre signes ^ 
, le masque sera agrandi ou reduit 
automatiquement afin d 1 en laisser quatre; 

- si le nombre ne tient pas dans le masque 
defini, ou si le masque est err one, la sortie 
est formatee avec des points d 1 interrogation . 



Utilisation 

Les lignes 40000 a 40044 doivent etre 
ajoutees au programme deja contenu en 
memoire. La solution la plus aisee consiste a 
f aire un f ichier Exec qui contienne les 
lignes 40000 a 40044 (voir Pom's, numero 3). 
Pour cela, apres avoir tape le sous-programme 
de PRINTUSING, ajoutez-lui les lignes 
suivantes : 

10 D$=CHR$(4):F$ = T1 PRINTUSING ,T 

20 PRINT D$"0PEN"F$ 

30 PRINT D$ T1 WRITE T1 F$ 

40 POKE 33, 33 

50 LIST 40000, 40044 

60 PRINT D$"CL0SE r * 

70 END 

et faites RUN. Le fichier PRINTUSING est cree 
(pour ceux qui ont la disquette POM'S, ce 
fichier existe deja). Pour ajouter les lignes 
du sous-programme PRINTUSING a votre 
programme, il suffit alors de le charger en 
memoire par un LOAD et de taper EXEC 
PRINTUSING . Lorsque la disquette s^st 
arretee, vous pouvez alors f aire un SAVE de 
votre programme complet. 

Attention : verifiez bien avant que les 
lignes 40000 a 40044 de votre programme sont 
inutilisees et que vous n'employez pas de 
variables commencant par Z. 



1RUN 



PRINTUSING DEMONSTRATION 





***** 


*** 


*. ******* 


********* 


-10 


??.?? 


-10 


-.100E+02 


-10.0000 


1.25 


1.25 


1 


1.250E+00 


1.2500 


12.5 


12.50 


13 


1.250E+01 


12.5000 


23.75 


23.75 


24 


2.375E+01 


23*7500 


35 


35.00 


35 


3.500E+01 


35.0000 


46.25 


46.25 


46 


4.625E+01 


46.25 


57.5 


57.50 


58 


5.750E+01 


57.5000 


68.75 


6B.75 


69 


6.875E+01 


68.7500 


80 


60.00 


80 


8.000E+01 


80.0000 


91.25 


91.25 


91 


9.125E+01 


91.2500 


102.5 


??.?? 


103 


1.025E+02 


102.5000 
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1LIST 

20 D$ b CHR* (4):F* - "PRINTUSING 

II 

30 PRINT D*}"DPEN"}F* 
^0 PRINT D* t "WRITE" » F* 
50 LIST 40000,40044 
6i PRINT D*}"CLDSE"5F* 
70 END 

40000 REM PRINT USING 

40001 zx = o:zw = o:zy * o:zv = o: 

ZT = OJZU ■ OJZS - OJZR = OJZ 
G « ZZ5ZY* = STR* (ZQ) 
40 02 IF LEN (ZY*) > = 5 THEN IF 
MID$ (ZY*, LEN (ZY*) - 3,1) = 
"E" THEN ZV = VAL < RIGHTS < 
ZY*,3)):ZY* = LEFT* (ZY*, LEN 
(ZY*) - 4) 

40003 FDR ZW = 1 TD LEN (ZY*): IF 
MID* (ZY*,ZW,1) < > "♦" THEN 
NEXT ZW 

40004 IF LEN (ZY*) > 3 AND LEFT* 
(ZY*,3) m "-.0" THEN ZY* = 

. H + RIGHT* (ZY*, LEN (ZY* - 
3):ZV = ZU - i: GDTD 40007 
40 005 IF ZW = 1 THEN ZY* *= RIGHT* 
(ZY*, LEN (ZY*) - 1): IF LEFT* 
(ZY*,1) = "0" THEN ZY* = RIGHT* 
(ZY*, LEN (ZY*) - 1):ZV = ZV - 
1 

40006 IF ZW = 1 THEN 40009 

40 07 IF ZW < LEN (ZY*) THEN ZY* 

= LEFT* (ZY*,ZW - 1) + RIGHT* 
(ZY*, LEN (ZY*) - ZW) 

40008 ZV » ZV + ZW - 1 

40009 FOR ZI = 1 TO LEN (ZZ*): IF 
MID* (ZZ*,ZI,1) - " " THEN PRINT 

" "j: NEXT til GDTD 40039 

40010 FDR ZJ = ZI TO LEN (ZZ*): IF 
MID* (ZZ*,ZJ,1) - '■*'■ THEN Z 

T * ZT + 1 J NEXT ZJJ GDTD 400 
15 

40011 IF MID* <ZZ*,ZJ,1) - "." THEN 
ZS =■ ltZJ = ZJ + 1J IF ZJ > LEN 
(ZZ*) THEN GDTD 40015 

40012 FDR ZK » ZJ TO LEN (ZZ*): IF 
MID* (ZZ*,ZK,1) - " A " THEN Z 

R = i: GDTD 40015 

40013 IF MID* (ZZ*,ZK,1) = "#•' THEN 

zu « zu + i: next zk: gdtd 40 

015 

40014 IF MID* <ZZ*,ZK,1) < > '• 
" THEN 40039 

40015 IF LEN (ZY*) < ZU + ZT + 1 
THEN FDR ZI - LEN (ZY*) TD 

zu + zt + i:zy* = zy* + "0": next 

ZI 

40016 IF VAL (ZY*) = THEN ZV * 
i: GDTD 40021 



40017 ZP = ZV + ZU + i: IF ZR = 1 THEN 
ZP = ZT + ZU + 1 

40018 IF ZP < =0 THEN 40021 

40019 ZY* * STR* ( VAL ( LEFT* (Z 
Y*,ZP) ) + 5 x SGN (ZZ) ) 

40020 IF LEN (ZY*) > ZP THEN ZV = 
ZV + 1 

40021 IF ZR < > THEN GDTD 400 
30 

40022 IF ZV > ZT THEN 40039 

40023 ZX* ~ ""J IF ZZ < THEN ZY* 
= RIGHT* (ZY*, LEN (ZY*) - 

DJZX* = "-" 

40024 IF ZV < =0 THEN ZY* = "0" 
+ ZY*JZV « ZV + 1J GDTD 4002 

4 

40 025 ZY* = ZX* + ZY* 

40026 IF ZT - ZV > THEN FDR ZI 
=1 TO ZT - ZV: PRINT " "} JZ 

T = ZT - 1J NEXT ZI 

40027 IF ZT > THEN PRINT LEFT* 
(ZV*,ZT) J 

40028 IF ZS < > THEN PRINT ". 
"i! IF ZU > THEN FDR ZI = 
ZT + 1 TD ZT + ZUt PRINT MID* 
(ZY*,ZI,1)}J NEXT ZI 

40029 GDTD 40037 

40030 PRINT LEFT* (ZY*,ZT)JJZV =* 
ZV - ZT 

40031 Ir ZS < > THEN PRINT 
"}} IF ZU > THEN FDR ZI » 
ZT + 1 TD ZT + ZU: PRINT MID* 
(ZY*,ZI,1)}J NEXT ZI 

40032 IF VAL (ZY*) = THEN ZV = 


40033 PRINT "E" } : IF ZV < THEN 
PRINT "-" 

40034 IF ZV > * THEN PRINT "+ 

01 ♦ 

40 035 IF ABS <ZV) < 10 THEN PRINT 
"0"; ABB <zv>; 

40036 IF ABS <ZV> > 9 THEN PRINT 
ABS <zv>; 

40037 FDR ZI * LEN <ZZ*> TO 1 STEP 
- II IF MID* <ZZ*,ZI,1) * •' 

" THEN PRINT " " } : NEXT ZI 

40038 RETURN 

40039 FDR ZI * 1 TD LEN (ZZ*) 

40040 IF MID* <ZZ*,ZI f l> = 11 M M THEN 
PRINT " ,J H GDTD 40044 

40041 IF MID* <ZZ*,ZI f l> - 11 ♦ " THEN 
PRINT ,l * ,f ; I GDTD 40044 

40042 IF MID* (ZZ*,ZI f l) = n # n THEN 
PRINT •■?" J : GDTD 40044 

46043 IF HID* <ZZ*,ZI,4) - *«aaaa 
11 THEN PRINT "E???";:ZI * ZI 
+ 3: GDTD 40044 
40044 NEXT ZI : RETURN 
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Notions de base : les fichiers 



Eh version standard, le DOS de 1 T Apple II 
n'offre pas d 'utilitaires de gestion de 
fichier. II vous appartient done de definir 
par vous-meme 1 r organisation de vos fichiers, 
les modes d r acces, les methodes de recherche, 
etc. L^es reponses a ce type de probleme sont 
extremement variees . Cet article n'en 
presentera que quelques-unes, relativement 
simples a mettre en oeuvre et ne faisant 
appel qu'aux seules ressources du BASIC 
Applesoft y sans s'attarder sur les structures 
purement sequent ielles dont l'interet et la 
difficulte semblent assez reduits. 



1. Fichiers sequentiels a acces direct avec 
table de reference 

a) Table de reference complete en memoire 

Supposons que 1 1 on veuille ecrire un 
programme permettant de gerer un stock 
d r articles quelconques. Independamment des 
divers traitements a realiser, ce qui nous 
Juteresse ici est de pouvoir stocker et 
recuperer rapidement les donnees concernant 
un article precis (stock, prix unitaire . . . ) . 

Poussons done 1 r audace jusqu'a doter chacun 
de nos articles d 1 un code, long par exemple 
de 6 caracteres alphanumeriques, et qui nous 
servira de cle d r acces. l*e principe de 
gestion des fichiers se decompose alors en 
trois etapes : 

. Etablir une table des codes-articles, clas- 

see par ordre alphabetique . 
• Associer a chaque code-article une adresse 

renvoyant au fichier qui memorise les 

donnees. 

■ Ecrire ou lire les donnees a 1 r aide de ce 
fichier . 

Seule la table de reference, comportant les 
codes et les adresses, reside en memoire 
centrale. Par ailleurs, elle sera stockee sur 
disquette dans un fichier sequentiel a acces 
sequent iel ► 

Le programme suivant donne un exemple 
d 1 utilisation de cette method e. 



ULIST 

1 GOTO 10 00 
30 REM 

f\ C\ CfdA wwwwwwwwwwwwwwwwwwww 
*^ \j rcr n ******************** 

x RECHERCHE * 

x DICHOTOHIGUE x 

50 Kl ■ 1JK2 ■ NZJ IF NZ = THEN 

K = IS RETURN 

51 K - INT <(K1 + K2> / 2> tA* = 

LEFT* <N*<K),6)J IF S* ■ A* 
THEN Kl ■ - 1J RETURN 

52 IF S* < A* AND K2 > Kl + 1 THEN 

K2 « k: GOTO 51 

53 IF S* < A* THEN RETURN 

54 IF K2 > Kl + 1 THEN Kl - K: GOTO 

51 

55 K = K + It IF S* > LEFT* <N*< 

K2) ,6) THEN K * K2 + 1 

56 IF S* = LEFT* <N*(K2),6) THEN 

Kl = - i:K = K2: RETURN 

57 RETURN 
60 REM 

200 DATA CREATION, CONSULTATION, 

ANNUL ATION , FIN 
210 DATA DONNEE 1 , DONNEE 2,D0NN 

EE 3, DONNEE 4,00NNEE 5 » DONNE 

E 6 

220 FOR I = 1 TO 4t READ ME*(I)J 
NEXT : FOR I = 1 TO 6: READ 
LI*<I)J NEXT J RETURN 
30 VTAB 22: HTAB 1 J CALL - 868 
: VTAB 22: HTAB 1! INVERSE : 
PRINT Z*: NORMAL : FOR 2 = 
1 TO 200 J NEXT J RETURN 
980 REM 

990 REM xxxxxxxxxxxxxxxxxxx 
x DEBUT DU X 
x PROGRAMME x 

1000 D* = CHR* <4) JB* « " 

: ONERR GOTO 9900 
1010 DIM N*( 100) ,LX(50) 
1015 GOSUB 200 

1020 TEXT : HOME t FOR I = 1 TO 

4t VTAB 2 + 2 x it HTAB It PRINT 
I" - "ME*<I>t NEXT J VTAB 22 
t HTAB It INPUT "VOTRE CHOIX 

? "}CHJ IF CH < 1 OR CH > 4 

THEN 1020 



1030 
1010 
1015 
1016 



1050 

1052 

1055 

1060 
1170 

1075 
1980 



1085 
1086 



110 
1110 



1120 
1125 
1130 



1180 
1190 
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IF CH * 1 THEN 8000 
IF NZ < > THEN 1070 
REM 

* LECTURE DE LA x 
x TABLE DE x 
x REFERENCE x 

EZ p HZ ■ 01 PRINT Df'OPEN 
TABLE " J PRINT Df 'READ TABLE" 
J INPUT NZJ FOR I « 1 TO NZJ 

INPUT N*<I>: NEXT : INPUT N 
L! IF NL = THEN 10 55 

FOR 1=1 TO NLJ INPUT LZ<I 
> : NEXT 

print d* m close":e% » o: if 
z - 5 then nz » 0jnl » 

PRINT Dt"PR#0" 

TEXT : HOME :Zt = MEt(CH): HTAB 

20 - LEN (Zt> / 2J INVERSE 

: PRINT Zt: NORMAL 
VTAB 4} HTAB 1J PRINT "CODE 
ARTICLE J "}? VTAB 4? HTAB 

16: INPUT ""JCAt? IF LEN <C 

A*) > 6 THEN 1075 

St = LEFT* (CAt -I- Bt,6>? GOSUB 

50: ON CH GOTO 110 0,2000,300 



REM 

Pi l^f DK Jit JK Jit Jit Jit Jit Jit JK JK JK Jit JK JK JK JK Jit 

x CREATION x 

IF Kl * - 1 THEN Zt = "EXI 
STE»: GOSUB 300 : GOTO 1020 

FOR I ■ 1 TO 6J VTAB 5 + IJ 

HTAB 1} PRINT Lit (I)" 
J FOR I » 1 TO 6: VTAB 
J HTAB LEN (Lit (I)) + 
""JDDtd): NEXT : VTAB 
i: INPUT "OK ? "?ZtJ IF 
"N" THEN 1110 

EEZ = 9'R « NZ + It IF NL > 
THEN R « LZ(NL)!NL = NL - 
1 

IF K < ■ NZ THEN FOR I - 
NZ TO K STEP - lJNtd + 1) a 
Nt(I)J NEXT 

NZ ■ NZ + i:Nt(K> "? St + STRt 
(R): PRINT Df'OPEN ARTICLES, 
L100": PRINT Dt "WRITE ARTICL 

es,r m r: print st: for i * i to 

61 PRINT DDi(I)J NEXT J PRINT 
Df'CLOSE" J PRINT Dt"PR#0": GOTO 
1020 
REM 

x CONSULTATION x 



: "S NEXT 
5 + 1 
4? INPUT 
22: HTAB 
Zt = 



IF Kl > 
TE PAS"? 




THEN Zt 
GOSUB 300: 



" "N'EXIS 
GOTO 102 



2005 EEZ = 9 x (EEZ * 9) 
2010 GOSUB 2020: GOTO 1020 
2020 R = VAL ( MIDt (Nt(K),7)>J PRINT 
Df'OPEN ARTICLES, L100": PRINT 

Df'READ ARTICLES, R"R: INPUT 
CAt: FOR I = 1 TO 6: INPUT D 
0$(I): NEXT J PRINT Df'CLOSE 
"J PRINT Dt"PR#0" 

2030 FOR I ■ 1 TO 6J VTAB 5 + It 
HTAB i: PRINT LIt(I>" : "DD 
t(I>: NEXT J VTAB 22: HTAB 1 
: PRINT "FRAPPEZ UNE TOUCHE" 
j: GET Zt: RETURN 

2980 REM 

2990 REM xxxxxxxxxxxxxxxxxx 
x ANNULATION * 



30 
3010 



3020 
30 30 



IF Kl > THEN 2000 

GOSUB 2020: VTAB 22: HTAB 1 
J CALL - 868J VTAB 22? HTAB 
It INPUT "ANNULATION CONFIRM 
EE ? "JZt: IF Zt < > "D" THEN 
1020 

EEZ = 9tNZ = NZ - 1? IF K < 
■ NZ THEN FOR I « K TO NZ: 

Nt(I) ■ Nt(I + 1 ) : NEXT 
PRINT Df'OPEN ARTICLES, LI 

": PRINT Df'WRITE ARTICLES, R 

"r: print "Annule": print ot 

"CLOSE": PRINT Dt"PR#0":NL - 
NL + ltLZ(NL) = RJ GOTO 1020 



7980 
7990 



REM 
REM 



80 
8010 



x SAUVEGARDE DE x 
x LA TABLE DE x 
x REFERENCE x 



IF EEZ < > 9 THEN END 
PRINT Of OPEN TABLE"? PRINT 
Df'WRITE TABLE": PRINT NZ: FOR 
I - 1 TO NZ5 PRINT Nt(I): NEXT 

: print nl: for i = i to nl: 

PRINT LZ(I)J NEXT 5 PRINT D 
f'CLOSE"? PRINT Dt"PR#0"J END 



IF Z = 5 AND 



9900 Z = PEEK (222): 
EZ - 1 THEN 1055 

9910 PRINT DfCLOSE"? IF Z ■ 5 OR 
Z - 6 THEN PRINT "CETTE DIS 
QUETTE N ' EST PAS LA BONNE"? FOR 
Z = 1 TO 150 0? NEXT ? GOTO 1 
020 

9920 PRINT "ERREUR NO "Z" OANS L 
A LIGNE " PEEK (218) + 256 x 
PEEK (219): PRINT : PRINT " 
FRAPPEZ UNE TOUCHE" \ • GET Zt 
: GOTO 1020 
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II ne s'agit la que d ? un programme plutot 
rudimentaire, mais seules nous importent 
vraiment les methodes de gestion des 
fichiers, qui meritent quelques commentaires : 

— TABLE est le fichier sequentiel ou se 
trouve stockee la table de reference. Eh 
memoire, la table est chargee dans le tableau 
N$. 

Le tableau L% contient les adresses 
liberees par l'annulation d 1 articles qui sont 
done disponibles pour de nouveaux 
enregistrements. Sur disquette, ces adresses 
sont stockees a la suite de la table de 
reference dans le meme fichier TABLE. 

— ARTICLES est le fichier a acces direct ou 
sont stockees les donnees concernant les 
differents articles* La longueur des 
enregistrements (ici fixee a 100 de facon non 
significative), depend bien sur du nombre des 
donnees et du nombre de caracteres que 
comporte chacune d'elles. 

Dans la procedure de recherche 
dichotomique (lignes 50 a 57) t K indique la 
position d ? un code donne dans la table 
(position virtuelle si 1 'article en question 
n ? a pas encore ete cree). K1 est fixe a -1 si 
le code-article existe; il est toujours 
positif dans le cas contraire. La longueur 
d'un code dans la table est forcee a 6 
caracteres par ajout de blancs si necessaire. 
Uadresse corres- pondante dans ARTICLES se 
trouve simplement a la suite du code; ceci 
evite devoir a g^rer deux tableaux pour les 
codes et les adresses (Cf lignes 1080, 1130). 
Pour retrouver l'adresse, il suffit de 
prendre la partie de la chaine qui se trouve 
au-dela du sixieme caractere . 

— Eh cas de creation d'un article dont le 
code n'est pas le dernier de la liste dans 
l'ordre alphabetique, il faut decaler la 
table en consequence (ligne 1125). De meme si 
l'on annule un code qui n'est pas le dernier 
de la liste (ligne 3020). 

— Eh fin de programme, si la table de 
reference a ete modifiee (ajouts ou 
supressions), il faut la sauver sur disquette 
(lignes 8000^8010). La variable EE% signale 
ces eventuelles modifications. 

b) Table de reference "tronquee" en memoire 

Cette methode repose sur les memes principes 
que la precedente, mais peut s^ppliquer a 
des situations dans lesquelles le nombre 
d 'elements de la table de reference et la 
longueur des codes rendent problematique le 
stockage des deux donnees "code + adresse" en 
memoire centrales 

La solution envisagee ici consiste alors a ne 
garner en memoire que les codes (ce qui 
permet d'effectuer des recherches rapides) et 
a utiliser un fichier a acces direct, dont 
les enregistrements sont classes dans l'ordre 
des codes, contenant les adresses. 

- PonVi 



Eh reprenant le programme ci-dessus, la 
recuperation des donnees s'opere comme *uit 
(ADRES etant le fichier des adresses) : 

2020 PRINT D$"0PEN ADRES, L5 T1 : PRINT D$" READ 
ADRES, R"K : INPUT R : PRINT D$"0PEN ARTICLES, 
L100" : ... 

Dans la procedure de recherche dichotomique, 
il n'est plus necessaire de preciser 
LEFT$( . . . , 6 ) , puisque N$ ne contient plus que 
les codes. 

Eh ce qui concerne la mise a jour du fichier 
des adresses, deux solutions sont 
envisageables : 

** Mise a jour immediate : en creation par 
exemple, on aurait alors : 

1 1 25 PRINT D$ t, 0PEN ADRES, L5" : IF K> NZ THEN 
GOTO 1128 

1126 FOR L=NZ TO K STEP-1 : R1=L : R2=L+1 : 
PRINT D$" READ ADRES, R"R1 : INPUT Z : PRINT 
D$"WRITE ADRES, R" R2 : PRINT Z : NEXT 

1127 FOR L=NZ TO K STEP- 1 : N$ ( L+ 1 ) = N$ ( L) : NEXT 

1128 PRINT D$ n WRITE ADRES, R rT K : PRINT R 
1130 NZ=NZ+1 : N$(K)=S$ : ... 

C'est la solution la plus simple a mettre en 
oeuvre, mais elle risque parf ois d T obliger 
1 ? utilisateur a patienter un certain temps 
devant son ecran si 1 ? article cree ou 
supprime se trouve en debut d'une liste 
longue . 

** Mise a jour en fin de traitement : les 
decalages du fichier des adresses sont alors 
effectues a 1 T issue d T une phase de creation 
ou de suppression . 

On peut, par exemple, stocker les codes et 
les adresses des articles crees dans un 
tableau annexe puis, en fin de traitement, 
reprendre chaque code, localiser sa position 
K dans la table et mettre a jour le fichier 
des adresses. 

2. Fichiers non sequent ieis a acces direct 

Si nous rebaptisons nos articles 

T 'composants' r , on peut admettre qu'ils entrent 
dans la nomenclature de produits plus 
complexes, et que l ? on veuille egalement 
gerer ces nomenclatures sur Apple. Ihe de ces 
nomenclatures se presenterait sous la forme 
d'une liste de codes-articles, avec pour 
chacun d 1 eux la quantite du composant 
correspondant qui entre dans la composition 
du produit concerne. Cette liste etant 
susceptible d'evoluer, il f audrait en outre 
pouvoir modifier rapidement une quantite ou 
un code donnes . 

La encore, bien des solutions sont 
envisageables. Celle que nous examinons ici 
suppose que l T on sache quel est le nombre 

53 

n° 4 



maximum des composants par nomenclature et 
que 1 1 utilisation non optimale de la capacite 
des disquettes ne soit pas pour nous un 
probleme fondamental. Supposons done que l'on 
mette 10 nomenclatures (designees par un code 
a 2 carac teres) par disquette et que chacune 
comporte au maximum 100 composants . 

On affecte a chaque nomenclature un chiff re 
compris entre et 9 (C%) et l'on utilise un 
fichier a acces direct dans lequel les 
enregistrements a 100 ( 1 a 100 pour les 
composants) correspondent a la premiere 
nomenclature, les enregistrements 101 a 201 
(102 a 201 pour les composants) a la seconde, 
et ainsi de suite. 

Pour chaque nomenclature, le premier 
enregistrement se trouve a l'adresse 
R0=101*C% ; on peut y stocker le code et le 
nombre de composants (NC) dont les donnees 
sont memorisees dans les enregistrements R0+1 
a R0+NC. Eh outre, on conservera en memoire 
la liste des codes-nomenclatures avec les 
chiffres C% correspondants (qui sera stockee 
dans un fichier sequentiel) . 

Voici quelques procedures liees a ce type 
d 'organisation : 

** Affectation d'un C% a une nomenclature 
nouvelle, apres avoir verifie que NN est 
inferieur a 10 et que CN$ n'existe pas deja 
(NN=nombre de nomenclatures, N0$=table des 
nomenclatures, CN$=code de la nomenclature) : 

10 CN$=LEFT (CN$+'< ",2) 

20 FOR 1=0 TO 9 : Z=0 : FOR J= 1 TO NN : IF 
VAL(MID$(N0$(J), 3))=I THEN Z-1 : J=NN 
30 NEXT ; IF 2=0 THEN C%=I : 1=9 : R0=10l*C% 
40 NEXT : NN=NN+1:N0$(NN)=CN$+STR$(C%): ... 

** Creation d'un composant (N0MENC=f ichier 
des nomenclatures) : 

10 NC=N01 : R=R0+NC : PRINT D$"0PEN N0MEMC, 

L100" : PRINT D$"WRITE NOMENC, R"R : PRINT . . . 
(donnees) 

** Recuperation des donnees d'un composant 

situe en Ieme position dans la liste : 

10 R=R0+I r PRINT D$"0PEN NOMENC, L 100" : 
PRINT D$"READ N0MENC, R" R : INPUT ... 

3* Fichiers a acces direct avec pointeurs 

Gardons notre probleme de nomenclatures a 
titre d'exemple. Uie autre fagon de le 
resoudre pourrait se decomposer ainsi : 

a) Creation d r une table de reference, avec 
codes et adresses (cf . supra) 

b) Creation d'un fichier a acces direct (cf . 
supra) memorisant, pour chaque nomenclature, 
le code, le libelle,..., le nombre de 
composants et les adresses des premier et 
dernier de la nomenclature dans le fichier 
des composants. 



c) Creation d'un fichier des composants 
(sequentiel a acces direct) memorisant pour 
chacun d T entre eux le code-article, la 
quantite et l T adresse du composant suivant 
pour la meme nomenclature . Uh caractere 
special a la place de cette adresse sjgnale 
que l'on est arrive au dernier composant 
d'une nomenclature donnee. 

d) II faut en outre stocker dans un fichier 
le nombre total de composants enregistres 
(toutes nomenclatures confondues), afin de 
savoir a quelle adresse ecrire les donnees 
d T un composant nouvellement cree . 

L' utilisation de ce type de structure ne pose 
guere de problemes. Soient: 

— NT : nombre total de composants 

— A1 : adresse du premier composant pour 

une nomenclature donnee 

— A2 : adresse du dernier composant pour 

une nomenclature donnee 

— AS : adresse du composant suivant pour 

la meme nomenclature (0 si dernier 
composant ) 

— C0MP0 : fichier des composants 

— N0MENC : fichier des nomenclatures 

** Creation d r un composant : 

. enregistrement des donnees dans C0MP0 a 
1' adresse NT+1, avec AS=0 

, enregistrement de AS=NT+t pour le compo- 
sant situe a 1 T adresse A2 

, enregistrement de A2=NT+1 dans N0MENC 

** Recherche d r un composant ; 

lecture de 1 T enregistrement situe a 
l'adresse A1 (on connait done AS). Si le 
code-article est celui que l'on recherche, 
tant mieux ! 

. sinon, lecture de 1 ' enregistrement AS 

et ainsi de suite, jusqu T a ce que l'on trouve 

ce que 1 T on cherche, ou bien AS=0. 

Si l r on doit acceder rapidement a un 
composant donne, cette methode est 
certainement moins efficace que la precedente 
qui, a partir d'une liste imprimee des 
differents composants de la nomenclature avec 
leur numero d ' ordre, permet d T accomplir ce 
genre de recherche sans perte de temps. 

Mais la methode des "pointeurs" peut trouver 
a s'appliquer dans de nombreuses situations : 

ignorance du nombre maximum d r elements par 
chapitre (nos nomenclatures) 

souci de ne pas "gaspiller" de place sur la 
disquette 

memorisation d'un nombre limite d 'elements 
par chapitre, avec roulement (on memorise par 
exemple 10 evenements, 1 'enregistrement d'un 
onzieme provoque l'ecrasement du premier). II 
suffit en effet de modifier les differentes 
adresses (dont A1 qui devient l'adresse du 
deuxieme) et d r enregistrer le nouvel element 
a l'ancienne adresse du premier d' entre eux. 
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La T W.C.C.F. 
(San Francisco) 

A 



La septieme West Coast Computer Faire (WCCF) 
a San Francisco vient de confirmer, avec ses 
100 conf erenciers, 600 exposants et 40.000 
visiteurs en trois jours, le dynamisme de 
l'industrie americaine de 1 r inf ormatique 
individuelle. N'oublions pas que 80% des 
ordinateurs individuels dans le monde se 
trouvent aux Etats-lhis; par ailleurs, 80% 
des ordinateurs individuels vendus dans le 
monde en 19 8 1 ont ete fabriques aux 
Btats-Uiis. Le marche americain devrait 
depasser un million d T unites en 1985, contre 
300.000 en 1981. A la 7eme WCCF, le dynamisme 
le plus marquant etait celui de tous les 
developpements realises autour de 1 T Apple, 
que ce soit pour ses peripheriques, ses 
logiciels d 1 application ou ses logiciels de 
base. 

Les peripheriques 

II serait difficile de dresser une liste 
exhaustive des peripheriques qu'il est 
possible de relier a un Apple, Toutefois, 
parmi les derniers apparus sur le marche, il 
est interessant de noter le succes de 
quelques-uns d r entre eux : 

- la reconnaissance vocale, avec 64 mots pour 
300 dollars; 

- la synthese vocale a partir d'un texte 
rentre au clavier (375 dollars); 

- la musique synthetique d 'une tres grande 
qualite ; 

- les peripheriques de communication et 




l'annonce de reseaux locaux ; 

- les disques durs 5 pouces et 8 pouces; 

- les imprimantes graphiques. 

Logiciel d 1 application pour DOS 3.2 ou 3.3 

fhviron 5.000 logiciels d 1 application pour 
l 1 Apple II sont actuellement commercialises 
sur le marche americain . Ces logiciels 
peuvent etre classes en trois grands domaines 
: les logiciels prof essionnels, les logiciels 
educatifs, et les jeux , 

Quatre types de logiciels prof essionnels 
connaissent un vif succes : 

1) Les logiciels de traitement de texte, dont 
les performances deviennent comparables a 
celles de machines dediees : pagination 
automatique, possibilite de souligner, 
d 1 inverser des paragraphes, de disposer (en 
anglais) d'un dictionnaire de 50.000 mots 
avec avertissement des fautes d T ortographe 
eventuelles, aide a la mise au point de 
formes grammaticales, a la mise en page 
automatique de lettres, the vingtaine de 
logiciels de traitement de texte pour Apple 
etaient en demonstration, dont les principaux 
etaient Superscribe II, Magic Window, Apple 
Writer II, Executive Secretary, Easy Writer, 
Letter Perfect, Wordstar, Write-on et Zardax . 

2) Les logiciels d'aide a la decision dont 
les publicites vantent le temps considerable 
qu'ils font gagner a leurs utilisateurs pour 
la mise au point d 1 un budget, l 1 analyse d'une 
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enquete ou la simulation des effets d'un 
I changement de parametre. Parmi ces logiciels, 
une dizaine se sont imposes dont Visicalc, 

I Personal Finance Manager, Tax Planner, Micro 
, Planner et Micro Finesse . Ce type de logiciel 

connait un succes considerable outre- 
Atlantique. 

3) L<es logiciels de gestion de base de 
donnees, qui permettent a un non-informa- 
ticien de travailler sur un fichier en 
beneficiant d'enormes possibilites. Parmi les 
logiciels les plus connus, on retrouve DB 
Master, PFS, CCA DMS, Data Factory et File 
Fax. 

4) Les logiciels de gestion qui sont des 
versions adaptees a 1* Apple des logiciels 
deja rodes sur mini-ordinateur (comptabilite, 
facturation, paye, ...). Plusieurs societes 
se sont specialises dans la conception de ce 
type de logiciel, en particulier Micro Lab, 
Continental Software, Broderbund et Peach- 
tree. 

Parmi les logiciels educatif s , ce sont les 
logiciels realises pour 1 'apprentissage des 
disciplines scientif iques qui connaissent le 
plus grand succes, tels les produits de North 
Strategy ou de Northware pour les 
mathematiques. I«es didacticiels de lecture 
et/ou ecriture comme Magic Spell marchent 
aussi tres bien. Ehfin, il faut souligner 
i'interet de logiciels d 1 apprentissage de 
disciplines non scientif iques : Apple Music 
Theory en musique, Supermap en geographie, ou 
Stellar Astronomy pour apprendre a reperer 
les etoiles, Et la liste n'est en rien 
exhaustive ! Dans le domaine de 1' education, 
remarquons aussi la percee du langage I>Qgo a 
la 7e WCCF. 

Ouand aux logiciels de jeu , ils connaissent 
une floraison exceptionnelle et atteignent 
des niveaux de performance remarquables . 

Eh complement de cette breve revue, 
n'oublions pas le developpement de la carte Z 
80, deux cartes 8088 avec MS DOS rendant 

I I Apple compatible avec 1 ' ordinateur 
individuel IBM, les extensions memoire 128K 
et la diffusion de plus en plus grande du 
langage Forth . 

Economises de la place sur vos fliaquettes 

I Vous pouvez economises un secteur chaque f ois 
' que vous enregistrez un graphique haute 
resolution sur une disquette. II suffit pour 
cela d'effectuer un BSAVE avec une longueur 
de $1FF8, ce qui est suffisant comme on peut 
le constater avec "lies adresses du 
graphique", dans Pom's numero 1. 

£h effet, les quatre premiers octets 
memorises avec une image haute resolution 
contiennent l'adresse et la longueur du 
fichier. La sauvegar<le d'un fichier de 
longueur* $2000 consomme par consequent $2000 
octets. La syntaxe de la sauvegarde d'une 
image haute resolution en page 1 doit done 
etre : PRINT D$ M BSAVE IMAGE, A$2000, L$ 1 FF8 M . 
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Apprentissage 
de l'assembleur (II) 



Notre propos n'est pas ici d 1 ecrire un manuel 
sur l'assembleur : d'une part, je ne m'en 
sens pas la competence; d r autre part, il 
faudrait que Pom's puisse paraitre a une 
frequence plus grand e. Mais surtout, comme 
vous avez pu le constater par la biblio- 
graphie de mon premier article (Pom's 3), 
nous avons l'embarras du choix en matiere de 
bons manuels; je vous cite pour memoire le 
tome III de "La pratique de 1' Apple II ft , aux 
Editions du PSI. 

Cependant, un bon manuel n'est pas tout; il 
faut la pratique, et la meilleure maniere de 
l'acquerir consiste a decortiquer des 
programmes deja ecrits. C'est precisement ce 
que je vous propose, du moins dans le 
precedent article et le prochain, en attirant 
votre attention sur les pierres d'achop- 
pement. Ires difficultes, je les connais, je 
les ai rencontrees ! 

Dans cette deuxieme partie, je m'adresse plus 
particulierement aux programmeurs moins 
experimentes, en exposant a ma maniere les 
points qui m'ont fait souffrir. Puissent les 
plus experimentes parmi les lecteurs, qui 
auront le courage de poursuivre cette lec- 
ture, y decouvrir certaines verites qui leur 
avaient peut-etre echappe ! 

Pensez hexa ! 



L'hexadecimal, ce n'est 
peut rapporter gros . . , 



pas diffile, et Qa 



Pour ceux qui partagent ma mauvaise memoire, 
un procede mnemotechnique peut rendre de 
fiers services. Plus le true semble ridicule, 
plus il a de chances d 1 etre retenu : 

B comme Bonze 

C comme douCe 

D comme Dreize 

E comme Equateurze 



n'est pas Seize, mais tti-Six* C'est un pli a 
prendre, qui evite la confusion avec les 
nombres decimaux, surtout quand le nombre 
hexa concerne ne comporte pas de lettre. 
Rassurez-vous, au niveau de l 1 Apple, il n'y a 
jamais plus de quatre chiffres hexa ensemble! 

Pensez binaire 



Chaque fois que j'ai un probleme, je me 
reporte a la representation binaire des 
valeurs que je dois traiter . C'est toujours 
plus simple de construire quelque chose a 
partir de bonnes definitions, et de revenir a 
celles-ci quand on est en panne. 

Par exemple, tout le monde sait que, dans la 
representation negative d'un nombre, il y a 
un bit dans la position la plus significative 
du mot (en l r occurence de l 1 octet, quand on 
travaille en simple precision) . Mais comment 
trouve-t-on l 1 oppose de 00100101 ? Dans tous 
les bons manuels, on parle de complement a 
Deux, avec une demonstration dont le chemi- 
nement m 1 echappe regulierement . Or, 

l 1 addition en binaire etant tres facile, il 
me suffit de me rappeler que 1* addition d T un 
nombre et de son oppose donne 0. Je n T ai plus 
qu'a trouver un nombre qui, additionne au 
nombre de depart, donne des partout : 
00100101 
+ 11011010 



1 00000000 

II y a un 1 qui apparait dans la position la 
plus a gauche, mais comme il disparait de 
l r octet, je n'ai pas a m'en preoccuper, du 
moins tant que je n'ai pas a tester les 
indicateurs du MOT D'ETAT. 

REM - Je ne veux chagriner personne et recon- 
nais, avec le reste de l'univers, la realite 
du complement a Deux, qui donne des partout 
avec une retenue qui se propage a gauche, et 
d if f erencions-la du complement a th, ou COM- 
PLEMENTATION LOGIQUE, avec des 1 partout. 



F, mais tout le monde 
dix, et F est seize 



Je n r ai rien pour A et 
sait que A represente 
moins un, ou plutot : 

$F=$10-$1 ("Uh-Zero moins lb") 
Tout d'abord, soulignons la presence du signe 
: cela signifie que ce qui suit est 
exprime en hexadecimal. Ehfin, pourquoi 
enoncer " (Jh-Zero moins Un" ? A ce propos, il 
est utile, quand on utilise une autre base 
que la base decimale, de prendre 1' habitude 



Revenons 
en hexa 
$100: 



a notre 
consiste 

25 
+ DB 



exemple; 
a faire 



la meme operation 
le complement a 



1 00 

D'ailleurs, la representation negative de 
l 1 octet a ste choisie precisement pour obeir 



d'individualiser chaque chiffre: ainsi, $16 aux regies d e l 1 addition utilisees par le 



microprocesseur . Ce dernier ignore complete- 
ment les nombres negatif s. II se preoccupe 
simplement de savoir si le bit le plus signi- 
ficatif de 1 ' octet est positionne (bit 7)* Si 
tel est le cas, il positionnera de la meme 
maniere le bit le plus significatif du mot 
d'etat, bit 7, que nous autres humains, nous 
empressons d'appeler N, ou indicateur de 
signe negatif (ce que se refuse a faire i-ance 
Leventhal dans son manuel - cf . Biblio* - 2) 
II ne vous a pas echappe, a la lecture du 
precedent article que cet indicateur servait 
a bien d ? autres choses que de determiner si 
un octet est negatif. Le moniteur l 1 utilise 
par exemple savoir si un caractere est frappe 
sur le clavier, l r octet de 1 1 accumulateur 
prenant immed iatement un bit "Un" en position 
la plus significative, alors que, pour 
permettre la lecture il avait ete mis a zero 
precedemment par "STROBE" (Octet $C010 de la 
memoir e) . II n'y a rien de bien negatif dans 
tout cela ! 

Les limitations du "huit-bits" 



La memoire de l r Apple II fait au maximum 
Cela se represente en binaire par un "Uh" 
suivi de seize zeros. Comme on utilise 
l'adresse zero, on voit qu'il faut seize bits 
pour adresser toute la memoire. Oh ne 
s'etonnera pas de savoir que le registre qui 
contient l'adresse de 1 1 instruction suivante 
-le "Registre Controleur de Sequence", ou 
"Compteur Ordinal" (PC pour Program Counter )- 
est un registre de deux octets. II est 
d'ailleurs le seul de ce genre. 
L 1 accumulateur et tous les autres registres 
sont des huit-bits. 



Nous sommes obliges d 1 avoir un compteur, qui 
pointe sur la fin de notre fichier (et qui 
sera increments a chaque fois que l'on stocke 
un nouveau caractere en memoire). Comme ce 
pointeur doit pouvoir adresser sur seize 
bits, il nous faut lui reserver deux memoires 
contigues - dans notre exemple 30 (par tie 
basse) et 31 (partie haute)-. 
Essayons de traduire ces instructions en 
langage machine (transpose en Applesoft) en 
bon assembleur, en n'oubliant pas que si 
Applesoft affecte et reserve une place 
memoire aux variables quand elles se 
presentent, le programmeur en langage machine 
doit les reserver a l'avance et, de 
preference, les declarer en debut de 
programme . 

FIN EQU $1E 

LDA £$60 

LDX £$00 

STA (FIN,X) 
(30 et 31 decimal donneront $1E et $1F) 

Ch remarquera que 1 ' instruction LDA, qui 
comporte bien des modes d r adressage (huit, 
voir article precedent pour leur significa- 
tion), n'a pas l 1 adressage indirect sans un 
registre associe. II a fallu utiliser l'a- 
dressage indirect preindexe par X. Nous avons 
pris le soin de mettre le registre-X a zero 
avant de 1' utiliser, sinon nous serions alles 
querir l^dresse ailleurs qu'en $1E-$1F. 

Si nous avions choisi l 1 adressage indirect 
post-indexe par Y Ca savoir STA (FIN),Y] , il 
aurait fallu egalement s 1 assurer preala- 
blement que le registre-Y contienne bien 
zero, faute de quoi on serait bien passe par 
$1E-$1F, mais l'adresse trouvee dans notre 
pointeur se serait ajoutee au reliquat 
contenu dans le registre-Y. 



On concoit la difficulte qu'il y a a 
manipuler des adresses de seize bits a l'aide 
de registres et de memoires qui n'ont que 
huit bits: il faut a chaque fois doubler les 
instructions de transfert du type LDA et STA 
(quand on passe par 1 'accumulateur ) . II faut 
done s'habituer, quand on lit ou ecrit un 
programme, 

groupes de quatre et a reserver en memoire 
deux adresses contigues pour stocker les 
adresses* Pour tout simplifier, la partie la 
plus 

generalement dans le second octet (il parait ^aractire dai 
que cela permet une execution plus rapide ! ) ♦ 
Remarquez que votre grande pratique des 
programmes en BASIC vous a familiarises avec 
les instructions du genre: 

40 LET FIN = PEEK(30)+PEEK(3D*256 

50 POKE FIN, 96 
ce qui n'est en fait que du langage machine basse 
transpose en Applesoft • 



Ch notera avec satisfaction que 1 ' instruction 

va chercher toute seule, dans les deux octets 

contigus qui constituent le pointeur ($1E et 
a saisir ces instructions par *ii?.i> ■> ^ A _ 

j.-- ^ ^ _ ^ _ L . la totalite de 1 ' ad r e s s e ou ranger 

notre constante. Mais il faut parfois gerer 

soit-meme les deux parties de l'adresse^ Par 

exemple quand on souhaite faire progresser le 
significative de l'adresse se place . . pt., 

6 ^ n Z 7 7 / 7 . ^ pointeur FIN, apres avoir mis un nouveau 



AJ0UT 



INC FIN 
BNE B0UCLE 
INC FIN+1 
BNE B0UCLE 



Pour fixer les idees, supposons que nous 
soyons en train de fabriquer un fichier 
binaire en memoire et que nous voulions 
mettre un caractere "fin de fichier" quand 
celui-ci sera rempli (91 en decimal, ou $60 
en hexa, est ef f ectivement le symbole de fin 
de fichier pour le programme AppleWriter ) . 



La premiere instruction actualise la partie 
de l'adresse ($1E), jusqu'a la valeur 
£$FF et se rebranche sur la boucle de 
traitement . Au tour suivant, cette partie 
basse prend la valeur £$00, car $100 depasse 
la capacite d'un octet, 1' indicateur Z(ero) 
se positionne vrai (1), et le test BNE n 1 est 
pas verif ie . II faut traiter soi-meme le 
report, ce que Je fais dans la suite du code 
en actualisant la partie haute ($1F) par INC 
FIN+1 • 
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N.B. II faut esperer que le deuxieme BNE est 
toujours verifie, faute de quoi je serais 
parvenu a ecrire dans la memoire morte ! Mais 
rassurez-vous : auparavant, le DOS ne se 
serait pas laisse passer sur le corps sans 
reagir ! 

La page zero est arrivee ! 



Pour que mes pointeurs fonctionnent avec 
l'adressage indirect, il faut qu'ils soient 
choisis dans la page zero, c T est-a-dire dans 
les 256 premieres positions de memoire, $00 a 
$FF, les seules qui soient adressables en un 
seul octet. Mais attention, il n f y en a que 
256 et, si vous ouvrez votre Manuel de 
Reference a aux pages 74 et 75, vous 
constaterez que la fameuse PAGE ZERO est plus 
encombree que la place de l'Etoile a six 
heures du soir. L'utilisateur ne devra pas 
empieter sur les systemes auxquels il risque 
d'avoir recours (DOS, bien sur, mais aussi le 
moniteur dont on va utiliser abondamment les 
sous-programmes et egalement le BASIC de 
service, si on veut parvenir a un bon 
mixage . . . ) . 

La pile (STACK) peut apporter une solution de 
rechange, pour certains stockages temporai- 
res. Mais c r est une solution a utiliser avec 
prudence (on n T est pas en FORTH !) et qui 
demande une saine gestion (de pile). 

the solution de rechange : les compilateurs 

On assiste actuellement a un certain engoue- 
ment pour les compilateurs . Eh ef f et le BASIC 
interprets se montre trop lent dans certaines 
applications. Je citerai a ce sujet une etude 
parue dans "Cider Press" et qui comparait les 
temps d 'execution d r un petit programme de jeu 
ecrit en differents langages . II s'agissait 
d'un jeu de Marienbad, l f Apple jouant contre 
lui-meme. Les resultats (etonnants) furent 
les suivants: 

BASIC Integer 8 minutes 

Pascal 2 minutes 

Forth 1 minute 

Langage Machine 1 seconde 

Certes, le BASIC compile fait gagner du temps 
en execution ,mais ce temps est paye au prix 
d'un temps de chargement plus long des 
programmes . Eh ef f et, la compilation est 
prolixe et le programme resultant est 
beaucoup plus long que le programme BASIC 
initial. le temps d r execution sera raccourci 
par rapport a celui obtenu en BASIC 
interprets, sans atteindre - tant s'en faut - 
la vitesse d r un programme ecrit en langage 
assembleur . Par contre, si 1 T on part d T un 
programme existant en Applesoft, la 
compilation sera beaucoup plus rapide qu'une 
compilation manuelle; celle-ci consiste a 
traduire chaque instruction BASIC en une 
serie d T instructions assembleur (pour plus de 
details cf ."Converting Integer BASIC to As- 
sembly Language" - Biblio 1 ) . 



Mais la meilleure solution sera de programmer 
directement en langage-machine ou, si l'on 
part d T un programme BASIC, de reprogrammer 
les parties du programme qui necessitent une 
execution plus rapide . Si limitee soit-elle, 
1 'experimentation que mes amis et moi-meme 
avons faite des compilateurs disponibles 
s'avere plutot decevante . II semble que les 
compilateurs actuels tolerent assez mal les 
programmes BASIC qui n'ont pas ete ecrit 
specialement en vue de la compilation. Cette 
allergie se traduit par un certain nombre de 
messages d T erreur qui interrompent la 
compilation. S T il faut re-ecrire le programme 
pour pouvoir le compiler, ou se trouve le 
benefice? Tout donne a penser que nous sommes 
en presence de compilateurs de premiere 
generation qui auront des descendants plus 
civilises. 

Uhe optimisation facile 

S f il s'agit avant tout d T ameliorer la vitesse 
d 'execution, tout en reduisant la taille du 
code, le programme AOPTIMISER apporte une 
solution a considerer . II s'agit d T un petit 
logiciel de "Sensible Software" qui est 
extremement perf ormant . Eh deux passages, il 
reduit la taille des variables a une seule 
lettre et condense en une ligne toute serie 
d f instructions susceptibles logiquement de 
figurer sur une merae ligne. II fait done, en 
mieux, ce que fait le CRUNCHED de DAKIN (voir 
Pom T s 2 ) . 

Lh espoir degu 

Dans la suite logique de son article sur la 
compilation manuelle, Randy HYDE -toujours 
lui- nous a donne, deux ans plus tard, un 
outil automatise avec " SPEED/ ASM" (chez "On 
Line"). J'avoue que l'annonce de ce logiciel 
ra T avait mis l'eau a la bouche (N r est-ce pas 
le propre de toute bonne publicite ) ) * 

Ce logiciel se veut de nature a satisf aire 
les refractaires aux langage machine qui 
veulent neanmoins prof iter de I'efficacite 
d f un assembleur. II s'agit d'une extension de 
votre assembleur lui donnant les capacites 
d T un macro-assembleur . SPEED/ASM permet de 
traduire ("a la main") un programme BASIC en 
programme assembleur, pratiquement instruc- 
tion par instruction ou, pour etre plus pre- 
cis, a raison de deux instructions SPEED/ASM 
(au minimum) pour une instruction BASIC; en 
effet chaque operande fait l'objet d'une 
instruction separee. 

L T idee est seduisante, la realisation moins 
satisf aisante : on y introduit une phase 
supplementaire, car on n T est pas dispense de 
1 T assembleur et, en outre, meme s r il est 
limite a une vingtaine d ' instructions, il 
faut apprendre un nouveau langage, une sorte 
d f assembleur hybride . Peu satisaisant en 
premiere instance, SPEED/ASM est susceptible 
d'etre rehabilite en appel. 
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Conclusion 

Tout cela nous laisse peu cPespoir d'echapper 
au code machine et a 1 f assembleur. Mais le 
mal n'est pas bien terrible. La connaissance 
du langage machine nous permet de mieux com- 
prendre l f Apple et de mieux utiliser le BASIC 
(cf\ "All about Applesoft", Biblio - 4). 

La solution, pour etre efficace, consiste a 
melanger langage machine et Applesoft. Dans 
le prochain article, nous etudierons un uti- 
litaire qui vous permettra d 1 utiliser votre 
systeme de traitement de texte pour editer 
vos listes-source d 1 assemblage, meme si votre 
systeme de traitement de texte favori n f ac- 
cepte que des fichiers en binaire. Le pro- 
gramme annonce est un parfait exemple de l*u- 



tilisation simultanee de BASIC et code-machi- 
ne, en prenant le meilleur de chaque monde. 
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des lecteurs 




Abound depuis peu & votre revue, j r ai pu en 
appricier la quality des articles. NSanmoins, 
j 1 aimer ais faire ime reniarque. Je souhaite 
que la partie "initiation" & I 1 utilisation de 
V Apple et de ses langages n f empiete pas sur 
les articles de fond ou les programmes 
Slabovis destines aux amateurs "avertis" . . . 
Mais pour ne User personne, je pense qu f il 
vous sera nicessaire d* augment er le nombre de 
pages de chaque num&ro, ainsi tout le monde 
sera satisfait. A moins qu'une parution 
bimestrielle ou mensuelle vous semble plus 
avantageuse. 

En attendant, je vous envoie une disquette 
contenant deux programnes que j f ai ecrits en 
collaboration avac un de mes amis, Thierry Le 
Tallec . 

** Jacques Tran-Van y Marseille ** 
Reponse 

Nos lecteurs, etant tous des utlisateurs 
Apple, representent par la force des choses 
un marche somme toute encore assez restreint; 
nous ne pouvons pas particular iser la revue 
en la dediant exclusivement aux "pros"! C'est 
pourquoi nous nous efforcons de publier dans 
chaque numero des articles de niveaux varies* 
II est possible que nous passions dans 
l'avenir a une frequence de publication plus 
grande, ou que nous augmentions le nombre de 
pages* Nous devons, avant de le faire, nous 
assurer de rendre Pom's economiquement 
viable. Nous avons fait 1 Experience, dans le 
present numero, de reduire le texte, ce qui 
revient a l'aiigmenter de dix pages (par 



rapport au format normal) 
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L' augmentation de la frequence ou du nombre 
de pages prend plus de temps que prevu 
initialement, car la Commission Paritaire des 
revues de presse a refuse de nous reconnaltre 
en tant que publication . Nous sommes 
consideres comme un organe publicitaire de la 
societe Apple et, a ce titre, prive du regime 
postal et du regime de TVA des periodiques . 
Cette blague augmente nos couts d ! au moins 
20%, sans compensation de recette. Nous 
devons done croltre avec plus de prudence ... 

Ceci dit, nous sommes heureux de pouvoir 
publier dans ce numero de Pom's un de vos 
deux programmes, en esperant publier le reste 
par la suite . 

J'ai acheti les numeros 2 et 3 de votre revue 
et la trouve tr&s intiressante. Je me permet s 
de vous envoy er ci- joint quelques renvarques : 

1) A propos de I f article de J-F Duvivier 
(Pom's nwniro 2) 

Correction en page 29 : il ne faut pas 
repasser au clavier entre le moment oil I 'on 
remplit les m&njoires $AA5D et AA5F, et celui 
oil 
les 



V on lance le petit programme, cai* le DOS 
modi fie quand il rend le contrdle & 



V utilisateur. Il faut done rentrer : *300 
*AA?5: *AASD: 9, *AA5F: 0, *Z00G. 



2) A propos 
(Pom 9 s num&ro 
M. Meillaud 



de 
3) 

regrette 



I 1 article de J-L Meillaud 



que les gens n'ayant 
qu'im simple Apple II Plus ne puissent 
utiliser le mini-assembler. C f est pourtant 
possible (cf. 5). Correction en page 11, 
ligne 3 ; lire $14 et non $28. 
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3) A propos de n La pratique de I' Apple II, 
volume III 

Tl y a quelques erreurs quant aux memoires 
libres pour I' utilisateur: $1A, $1B et $1C 
sont utilises en haute resolution; $F9 est la 
valeur de ROT; $D6 est utilise par 
V Applesoft. En effet, selon E. Avgier (Pom's 
I, page 66), faire POKE 214,255 empeche de 
lister; en fait, POKE 214, x avec x superieur 
a 127 fait que toute corwnande (hors DOS) 
topee a partir du clavier equivaut a un RUN. 
Pourquoi ? 

4) Attention au FLASH I 

Tl m'est arrive, alors que je tapais un 
programme tout en V essayant, la misaventure 
suivante : relisant une ligne de programme 
avec la fleche a droite, certains caracteres 
changeaient au passage du curseur. Le RESET 
n'y faisait rien; il fallait, c' est le cas de 
le dire, se retapev la ligne. Je vi,ens 
v&cenment de trouver le pourquoi de cette 
bogue : j r avais presse RESET alors que 
j'etais en mode FLASH I Voyons done les 
details ... 

Le manuel de reference Apple nous apprend que 
COUT, la routine de sortie de caracteres du 
moniteur, fait avant l r affichage un AND 
logique entre l 1 accumulateur, qui contient le 
caractere a imprimer, et la memoir e $32, qui 
contient $FF en mode normal (I 1 AND ne change 
rien), $3F en mode inverse (on ne garde que 
les 2 bits de poids faible) et $7F en mode 
flash (on garde les 4 bits faibles). Et le 
tableau des caracteres ASCII affiches a 
Vecran nous montre que certains signes en 
mode flash sont representes en inverse 
e'est effectivement ce qui se passe dans le 
moniteur et en Integer. Mais I ' Applesoft 
dispose d'un second masque : pour representer 
tous les caracteres clignotants, il fait un 
OR logique entre I 1 accumulateur et la memoire 
$F3 qui vaut $0 en mode normal ou inverse, et 
$40 en mode flash (on force a 1 le 3eme bit)* 
C'est ce que montrent les routines Flash, 
Inverse et Normal ($F273 ...), et la routine 
OUTDO ($DB5C a $DB66). 

Or, le RESET execute un programme du moniteur 
qui remet la memoire $32 a $FF, mais qui ne 
touche pas a la memoire $F3, chasse gardee de 
V Applesoft. Ainsi, appuyer sur RESET quand 
on est en mode flash entravne un mode 
pseudo-normal qui fait que les caracteres 
ASCII afficMs (dans un LIST ou un PRINT) de 
codes 32 a 63 sont trans formes dans les 
caracteres de 96 a 127 : ils paraissent 
normaux, mais repasser dessus avec le curseur 
les change. 

Pour sortir de cette situation, on peut taper 
POKE 243,0 - ou taper NORMAL - ou encore FP 
(NEW et RESET ne marchent pas)* Et comme il 
faut bien tirer parti de ses ennuis, cela 
nous amene a ime astuce qui perniet d 1 imprimer 
des minuscules sur V imprimemte, tout en 
tapant des majuscules dans le listing, ceci 
de la fagon la plus simple du monde : il 



suffit avant le PRINT de faire POKE 232,32. 
Et Von imagine bien que V 0RA$F3 et le 
AND$32 permettent de varier a sa guise de 
telles combinaisons. 
5) Le mini-assembler a portee de tous 
Dans la disquette SYSTEM MASTER du DOS 3.3, 
le fichier INTBASIC permet de charger sur la 
carte langage le BASIC IntQQev, le 
MINI-ASSEMBLER, SWEET 1 6 et le Programmer's 
Aid No.l. Si I'on n'a pas la carte langage, 
on peut quand meme recuperer le 
mini-assembler en chargeant INTBASIC plus bas 
dans la memoire et en modifiant dans le 
programme les adresses de branchement absolu. 
Les operations a effectuer sont les suivantes 

BLOAD INTBASIC, A$ 6000 85DD:86 
CALL -151 85E?:86 
8537:8 8633:85 
855B:85 8668:85 
85BF:86 BSAVE MINI-ASSEMBLER ,A$ 8500, L$ 170 

Le mini-assembler proprement dit est compris 
entre $8500 et $863C+ Mais le fichier va 
jusqu f en $865F, car il y a a V adresse 
mnemotechnique $8666 un JMP $8592 vers 
l* adresse d r entree de l r assembleur. Pour 
utilise!' I 1 assembleur, il suffit done de le 
BLOADer et de faire CALL-151, suivi de 8666 G. 
Si Von veut faire cela a partir d r un 
programme Applesoft, il faut faire 
HIMEM:34048. On peut sans doute appliquer le 
meme traitement a V Integer , mais cela 
devient titanesque. Pour ceux qui n 1 ont pas 
le DOS 3.3 ni V Integer, il suffit de 
recopier le listing disassemble ou non du 
mini-assembleur, qui ne fait que 317 octets, 
plus le JMP $8592 en $8666. 

** Olivier Hem - 78 Chatou ** 
N.D.L.R. 

Merci pour tout ce travail. Malheureusement, 
le manque de place ne nous permet pas de 
reproduire ici le code du mini-assembleur. Ce 
ne devrait pas etre dur a trouver, puisque 
les DOS 3.3 sont largement diffuses ! 
Comme nous le f ait remarquer un autre 
lecteur, Monsieur Philippe Jaffre, le numero 
1 de Nibble 1982 publie une lettre dans 
laquelle on montre comment le mini-assembleur 
peut etre ensuite deplace en memoire. Ceci 
dit, vous pouvez aussi le faire en utilisant 
le programme de deplacement en assembleur du 
numero 1 de Pom's. 

Suite a la lecture des trois premiers num&ros 
de Pom's, void quelques remarques qui, je 
pense, pourront aider d' autres lecteur s. 

1) Le livre What ' s Where in Apple 
Je viens de trouver dans MICRO de janvier 82 
la signification des signes utilises. La 
syntaxe en est la suivante : /XY/ avec : 

Premiere lettre Seconde lettre 

S : subroutine E ; entry 

P : parameter B : block 

H : hardware n ; n bytes long 

6lJ 
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B : buffer L : label 

F : flog 

2) Personnalisation du DOS 

Afin d 1 avoir un maximum de place sur chaque 
disquette, il est intiressant quoad on 
possdde un Apple II muni de la carte tang age 
de n' avoir que sur une disquette de boot le 
langqje complimentaire (INTBASIC pour Apple 
II Plus, FTBASIC pour l' ancien). Or, a chaque 
fois que Von reboote une disquette aprks la 
mise sous tension, le DOS force Xe chavgement 
du langage dans la carte en icrivant 00 a la 
premiere adresse de celle-ci. Pour iviter 
cette operation,, il faut passer en mode 
moniteur et taper *BFD3 ; EA EA EA (ces NOP 
vont remplacer le code 8D 00 EO), puis 
initialiser la nouvelle disquette. 

3) Personnalisez vos disquettes, de P. 
Boutreux 

Tout d' abovd, une petite rectification : le 
DOS reserve 12 caract&res pour V information 
"DISK VOLUME ", et non pas 11. Remarque : si, 
aprks avoir booti une disquette ainsi 
personnalisie, on change de disquette et que 
Von tape CATALOG, on obtient le nouveau 
catalogue avec V ancien en-tete, en effet, le 
DOS ne relit pas cette information. Est-il 
possible de Vy amener ? Dans le meme ovdre 
d* idies, le DOS ne relit pas le numero de 
volume quand il liste un catalogue; que 
faut-il faire ? 

4) Cotrment court-circuiter les nunieros de 
volume 

Si vous voulez empicher les ordres DOS 
proven ant d'un programme d'utiliser le 
contrdle par nurtdro de volume, il suffit de 
vous mettre en moniteur et de taper : 
*BE1E:EA EA DO (qui remplace la sequence C5 
2F, FO 04, c'est-i-dire CMP $2F, BEQ $BE26). 

5) Petite annonce 

Je vends un moniteur portable couleur Thomson 
(08/81) a 2500 FF, V interface RVB pour Apple 
(revision ou 1, 500 FF), une imprimante 
Seikosha GP80M (09/81) avec logiciel hard 
copy d f Scran, 500 feuilles et 2 rubans (2200 
FF le lot). 

** Alain Sorin - 80 rue Rovget de Lisle - 
92000 Nanterre - Tel (2) ?21 04 10.** 



Les clubs 
ont la parole 



Groupe Apple de Geneve (Suisse) 

Le groupe Apple de Geneve (GAG) est un club 
regroupant environ une centaine d'utili- 
sateurs enthousiastes d ' Apple de la region 
Genevoise et de la France voisine. Ce club a 
de nombreuses activites, dont *la publication 
d'un journal, GAG'S LETTER, et huit groupes 
d'interet sur les sujets suivants : langage 
assembleur 6502, Pascal, materiel, jeux et 
graphiques, introduction au BASIC, telecommu- 
nications, applications commerciales et enfin 
enseignement • Ce club recherche l'echange 
d'idees, d 1 inf ormations et d 'experience. 

Contacter Alan J* Ehrlich, Groupe Apple de 
Geneve, Ch. Ami-Argand 9, Case Postale 20, 
CH-1290 Versoix, SUISSE. 



Association Hesperidea (69) 

L 1 association Hesperides a ete creee 
recemraent. Elle est constitute essentiel- 
lement d 'experts-comptables equipes de 
materiels de marque Apple et a pour objet de 
f avoriser entre ses membres la connaissance, 
la communication et l'echange d 1 inf ormations 
et d 1 experiences sur materiel micro-inf or- 
matique . 

Le siege social est situe au 63 rue de 
Crequi, 69006 Lyon. 

President : M. Jacques Calop (79) 07.03.65 
Tresorier : M. Marcel Gorlier (79) 33*25.49 
Secretaire : M. Victor Berard (7) 893.^2,63 
. . . tous trois experts-comptables. 



N.D.L.R. 

Merci pour tous ces elements, et bonne chance 
pour la petite annonce, a laquelle nous 
produisons une compagne ci-dessous. 



Je vends un moniteur N/B (10/80) 700 FF, et 
une -imprimante & aiguille OKI 40 colonnes 
(friction) avec interface Apple (les deux 
pour 1000 F TTC) . 

** Jean-Frangois Duvivier - 1, rue du Sevgent 
Blandan - 92110 Issy les Moulineaux - Tel 558 
0578 (le soir) ** 
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Club Microtel CESA (78) 

Le club Microtel CESA a recemment ouvert ses 
portes a Jouy-en-Josas. II dispose 
actuellement de materiels de marque Apple, 
Goupil et IBM. lb interet tout particulier 
est accorde a 1' utilisation de 1 'inf ormatique 
individuelle en gestion . 

Contacter Christophe Peslerbes, HEC chambre G 
33» 1 rue de la Liberation, 78350 Jouy-en- 
Josas. Tel (3) 956 8000. 
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Micro-informations 



Un jeu de cartes 

La carte ADALAB f acilite 1 1 acquisition et le 
traitement de mesures de laboratoire en temps 
reel . Pour 5200 FF HT, elle of f re les 
caracteristiques suivantes : entree 

analogique 12 bits (20 lectures/sec.), sortie 
analogique (50.000 conversions/sec), E/S 
digitales (16 bits E/S ou 8E et 8S, horloge 
temps reel 32 bits a compte rebours 
programmable et 2 compteurs/timers 16 bits, 
Le prix inclut un logiciel QUICK 1/0 ecrit en 
langage machine 6502. De nombreux accessoires 
et logiciels sont disponibles; les logiciels 
realisent les fonctions suivantes : gestion 
et visualisation de donnees, presentation 
graphique, ajustement, echantillonage et 
stockage rapide en memoire vive sur carte 
d Extension . 



2. L^mulateur de disquette 2*64KDE de Legend 
met a votre disposition un "lecteur de 
disquette" a acces tres rapide, et beneficie 
des memes comptabilites que la carte 
precedente. Des utilitaires speciaux sont 
f ournis avce la carte, dont l'un effectue la 
copie complete ou la sauvegarde d T une 
disquette en 16 secondes. Prix public : 6,500 
FF TTC. 

Ces deux cartes sont livrees avec toute une 
serie de programmes utilitaires et de 
demonstration. Vous pouvez etendre votre 
Visicalc a plus de 80K avec la carte 128KDE, 
et a plus de 100K avec deux cartes 64K. I<es 
documentations en francais doivent etre 
terminees a la date de parution de Pom T s. 
Contacter pour tou\ renseignement BIP, 3 rue 
de Duras, 75008 Paris, Tel (1) 264 0232. 



La carte ALPHA 6809 permet de disposer 
simultanement du MC 6809E et du MC6502 sur 
Apple II. Cette carte, prenant en charge 
1 r interpretation du P-code, accelere tres 
sensiblement la vitesse d r execution des 
programmes Pascal et FORTRAN, sans 
recompilation • Prix : 3.260 FF HT. 

Alpha systemes - 51 rue Thiers - 38OOO 
Grenoble - Patrick Binet (76) 87.98.27 

Toujour -s des cartes I 

Quatre nouvelles cartes pour 1' Apple II et 
1' Apple III : MicroClock, MicroTalker, 
MicroPort et MicroSynth. Respectivement, il 
s'agit de cartes horloge (dixiemes de 
seconde, annees bisextiles) , de synthese 
vocale, d T E/S parallele 8 bits et de synthese 
bruit/musique . 

March Communications Ltd, 14/16 Manchester 
St,, Liverpool L16ER. Tel (51) 236 2000 - 
Royaume Uni . 

Des extensions memoire , . . 



Un bras robotise pour I 1 Apple I 

Pour 200 livres, vous vous offrez un 
troisieme bras, en kit, commande par moteurs 
pas a pas, et comportant cinq axes ou 
articulations. II pese huit livres, mesure 17 
pouces et possede trois doigts d T origine. II 
lui faut du 12 volts a 3 amperes, et celui 
lui donne la force de souiever 10 onces 
(environ 280 g-); la precision de 
positionnement est de 0, 1 pouce soit 0,285 
ongle. D'autres extensions que les trois 
doigts peuvent etre fixees a loisir; 
certaines sont deja realisees et 

operationnelles . 

Pour la conversion des unites anglaises en 
unites plus courantes, ainsi que pour tout 
renseignement, contacter Colne Robotics Ltd, 
1 Station Road, Twickenham, Middlesex. Tel 
(1) 892 7044. Royaume Uhi. 



Mettez un tijgre dans votre moteur ! 



Trois f aeons d T augmenter la taille memoire de 
votre Apple : 

1 . La carte RAM 64KC de Legend rajoute 64K a 
vos 48K, en occupant un seul connecteur et en 
consommant nettement moins. Elle est 
compatible avec Pascal (en remplagant la 
carte langage si necessaire) et CP/M. Le DOS 
peut s'y charger, liberant ainsi la memoire 
centrale, Prix public : 3-300 FF TTC. 



1 . La carte 88 

Selon sa publicite, la carte qu 1 IBM craint de 
vous voir acheter transforme votre Apple en 
ordinateur 16 bits compatible avec le MS-DOS 
du micro IBM. Eh outre, elle etend votre 
memoire de 64K, II vous suffit de debloquer 
899 dollars et de contacter Coprocessors, 50 
West Borkaw Road, Suite 64, San Jose, CA 
95110 (USA) , 
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2. La MetaCard 



La MetaCard, outre ces possibilites, permet 
le fonctionnement simultane du 6502 (Apple) 
et du 8088 (IBM), mais exige par contre une 
alimentation separee (fournie avec la carte ). 
Metamorphic Systems, dont nous Savons pas 
l'adresse, vend sa carte 980 dollars, avec 
1 'extension 64K. 

3- Informations complementaires 

Les deux cartes peuvent etre etendues a 128K. 
La MetaCard possede en standard le CP/M-86 de 
Digital Research, le MS-DOS et le Pascal UCSD 
etant en option. La carte 88 off re l ! un ou 
1' autre des deux premiers SED en standard, 
l'autre et le Pascal pouvant etre acquis en 
option . 

'4, Le microprocesseur Motorola 6809 

La societe IEF commercialise depuis peu une 
carte comportant 64K de MEV et un 
microprocesseur 6809 fonctionnant en 8/16 
bits. Les 6^K peuvent etre utilises en 
simulation de disquette a acces rapid e. 
L T ensemble est vendu 4900 FF HT, programmes 
d'application compris. 

IEF- 228/230 rue Lecourbe - 75015 Paris - Tel 
(1) 828 0601. 



LOGICIEL 

Ih generateur de p rogrammes 

Ehcore un generateur de programmes pour 
I 1 Apple ! Avec C.O.R.P., on cree entre autres 
ses masques de saisie et de sortie sans 
savoir programmer . Les programmes sont 
generes en Basic Applesoft et peuvent ensuite 
etre modifies facilement. II faut avoir un 
Apple 48K et deux lecteurs, ainsi que 235 
dollars US pour le Basic System, La version 
2, qui comporte une disquette d T utilitaires, 
revient a 425 dollars . 

D/natech Microsof tware Division, 3 New 
England Executive Park, Burlington, MA 01083 
U.S.A. 

Jonglez avec les disquettes 

Avec l T utilitaire LjjtkDisc, vous pouvez, a 
partir du Pascal, realiser les operations 
suivantes : obtenir un catalogue de disquette 
en DOS 3-3t convertir en Pascal des fichiers 
binaires ou texte DOS 3.3, comparer bit a bit 
deux fichiers ou volumes Pascal, examiner une 
disquette au niveau de l 1 octet ou meme du bit 
et lister un fichier texte Pascal avec 
numerotation automatique de lignes et de 
pages, dates et titres. 

LinkDisc est realise par Link Systems, 1655 
26th Street, Santa Monica ( USA) et venu 70 
dollars. 

PonV 




Publications 

1. La recente collection "Micro-ordinateurs", 
aux Editions Eyrolles, propose les nouveaux 
titres suivants : 

. Micro-ordinateurs : comment ca marche - R. 
Schomberg - 96 pages - 55 FF 

Le Basic universel - R. Schomberg - 128 
pages - 55 FF 

Pascal par l'exemple - J. A. Hernandez - 156 
pages - 55 FF 

Apprendre a programmes en BASIC - C. 
Delannoy - 272 pages - 80 FF 

Langage d'un autre type : LISP - C. 
Queinnec - 200 pages - 89 FF 

2. Les editions du PSI annoncent un nouveau 
titre ; 

La decouverte de 1 T Applesoft (tome 2) - 
Frederic Levy - 120 pages - 65 FF 



3. Peut-on enfin vous cacher la parution aux 
Editions d 'Organisation de l'ouvrage suivant, 
que vous pouvez commander pour 149 francs 
(port compris) aux Editions MEV ? 

Comprendre et utiliser les modeles en 
gestion - Herve Thiriez - Illustrations de 
Piem - 192 pages - 149 FF 

Cet ouvrage offre une presentation 
pragmatique des modeles et de leur 
utilisation; sa comprehension ne pose pas de 
probleme pour les personnes ayant le niveau 
Terminale C. 
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BASIC APPLESOFT - Manuel de reference 
alphabetique 

Paul MERRY - Editions MNEMODYNE 
Prix indicatif : 120 F chez SIDEG 

Voici un livre qui pourra f aire bonne figure 
dans votre bibliotheque, ou plutot a cote de 
votre Apple, car il risque de vous servir 
souvent ! D'autant plus souvent qu'il est 
ecrit en francais. Nul besoin done d'etre 
familiarise avec la langue de Shakespeare 
pour 1 'utiliser , . . 

A vrai dire, il s'agit plus d'un repertoire 
que d'un livre- Le sous-titre le definit 
d'ailleurs fort bien : "Definition, 
utilisation et exemples pour les instructions 
et concepts de programmation, editions de 
textes et traitement de fichiers (DOS) 11 . 

Les differentes instructions de 1 ? Applesoft 
et du DOS y sont classees par ordre 
alphabetique et une ou plusieurs pages est 
consacree a chacune. Oh y retrouve, avec une 
presentation tres claire, leur syntaxe sous 
forme de diagramme, leur utilisation avec 
conseils, modes d'emploi, restrictions .et 
un petit programme utilisant cette 



Outre les instructions du Basic et du DOS, 
sont rassembles d 'autres roots-cles (erreurs, 
reset, moniteur, instructions, DOS, 

curseur,..). Par exemple, si vous avez une 
erreur dans votre programme, nul besoin de 
fouiller dans le manuel de 1 ? Applesoft ou 
celui du DOS . Cherchez done a "ERREURS". Tout 
est la : le code, les causes possibles, les 
remedes 

Par contre, des erreurs non referencees 
emaillent le texte : j'ai pu en relever 
jusqu'a six dans une seule page! II est 
regrettable que l'on puisse publier un livre 
sans apparemment 1 ? avoir relu une seule fois. 
Avis aux editeurs. 



Tout d'abord sceptique quant a 1 ! utilisation 
que je pourrais faire de cet ouvrage, je me 
suis vite aperQu de son utilite et de la 
facilite d'emploi pour retrouver une 
information (facilite due essentiellement a 
une presentation exellente) - 

C'est dire que je le conseille non seulement 
aux debutants en Applesoft, pour qui il est 
un instrument remarquable, mais egalement aux 
utilisateura plus avanges, qui peuvent avoir 
de temps en temps des doutes ou des lacunes. 
Courrez vite chez votre distributeur Apple 
pour le decouvrir ! 
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L£S MICRO-ORDINATEURS 



APPLE II 

Un des rnicroordinateurs les plus 
fiables de sa generation, Apple II 
est utilise dans de nombreux 
demames : gestion, comptabilite, 
ense'ignement, utilisations scienti- 
fnues et industrielles, applications 
domestiques^ 

D'une ires grande robustesse 
(garantie totale 1 an) Apple IJ n'ex- 
cede pas5 kg et sa facilite de trans- 
port renforce encore sa souplesse 
d*utilisation. 

Son extensibi lite est remarquable : 
Apple II etant compatible avec la 
plupart des peripheriques actuels, 
il beneficte d'un large eventail de 
possibility 



CONFIGURATION DE 
DrZVELtPPEMENT 




as 




Langage 



Materiel 



Systeme 
Memoire 
utiiisateur 
(RAM) 

Micro-programmation 

Unites 
Disk II 



BASIC 


PILOT 


PASCAL 


FORTRAN 


11 Plus 


i: pins 


11 Plu.s 


11 Plus 


32K 


48 K 


48 K 


48 K 


Cartes 
BASIC 

1 


Cartes 
BASIC 

1 ou2 


Carte 
Langage 

1 


Carte 
Langage 

I 



APPLE 111 

L' Apple 111 est un systeme d'ordi- 
nateur de bureau puissant, faisant 
partie d'ensembles etudies sur me- 
sure et concus pour resoudre vos 
besoins complexes en application. 
Pour les managers^ les financiers, 
les analystes et tous ceux qui ont 
besoin d'organiser des fails et des 
chiffres, II existe le systeme 
d'Analyse de Information Ap* 
pie 111 

Option A ; 33J30 F TTC visi- 
cale 3 - S,O.S- buissness Basic - 
Moniteur3 12" 



Option B : 38.100 F TTC. 
idem A -f Fltppy suppl6mentaire 
Option C : 
41400 F TTC 

Idem H i 
Imprimantc 
therm iquc 
graphiquc, 




1£S LOGICIELS 



Pour APPLE 11 

PHANTOMS FIVE 48 K (DOS 3.3) . 260,00 F TTC 

S^ACE EG r*S 48 K (DOS 3.2 ou 3,3) 260,00 F1TC 

RASTER BLASTER 48K 295,00 FTTC 

APPLE PANIC 48 K 380,00 F1TC 

COMPUTER B1SMARCK48 K 395.00 F TTC 

COMPUTER NAPOLEONJCS 48 K 450,00 FTTC 

COMPUTER AIR COMBAT48 K 495,00 FTTC 

VJSJCALC (DOS 3.3)16 secteurs 1 764.00 FTTC 

VISITREND + VJSJPLOT 2363,76 F 1TC 

VJS1DEX , 1 764,00 F TTC 

VJSJPLOT 1 640,52 F TTC 

VISJTERM 1375,92 FTTC 

DESKTOP PLAN II 1 764.00 FTTC 

CCA/DMS (Gestion de Fichier) I 105,44 FTTC 

APPLE WRITER , , 576,24 FTFC 

APPLE POST 352,80 FTTC 

APPLE PILOT , 1 293,60 F TrC 

MINI- ASSEMBLEUR APPLE SOFT 235,20 F TTC 

PROGRAMME 

COMPTABJLJTfc GEN&RALE (SAAR1) 3410,40 F TTC 

PROGRAMME PAVE (GJPSJ) 2587,20 FTTC 
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Signature : 



Montant net 

FraiS'de port 
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TOTAL A PAYER 



Prix total 







30,00 

* 1 1 1 ■ 
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Pour mieux choisir 
"votre" ordinateur 
et pour mieux I'utiliser. 





I'l LORDIIMATEUR 
[1— Jj IIMDIVIDUEL 

Vous y trouverez : 

lactualite et les tendances de Pinf ormatique individuelle • des galops et des bancs 
dessoi des principaux materiels • des panoramas et des tests comparatif s • le point 
des grandes manifestations internationales • des articles d'initiation • des syntheses 
• des programmes • des interviews "exemplaires" • des conseils • des idees 

• des astuces. 

I'l UDRDIIMATEUR 
1 1— Jj IIMDIVIDUEL 

chez votre marchand de journaux 

41 rue de la Grange aux Belles - 75010 Paris 



